Robert Israel, <a href="/A052081/b052081_1.txt">Table of n, a(n) for n = 1..10000</a>
Robert Israel, <a href="/A052081/b052081_1.txt">Table of n, a(n) for n = 1..10000</a>
reviewed
approved
proposed
reviewed
editing
proposed
Robert Israel, <a href="/A052081/b052081_1.txt">Table of n, a(n) for n = 1..10000</a>
filter:= proc(n) local L, i, v, V;
L:= convert(n^2, base, 10);
for i from 1 to nops(L) do
v:= L[i];
if not assigned(V[v]) then V[v]:= i
elif V[v] < i-1 then return false
else V[v]:= i
fi
od;
true
end proc:
select(filter, [$0..100]); # Robert Israel, Nov 08 2023
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Numbers k with the property such that k^2 is a square whose decimal expansion's digits are grouped together.
81 is not a term since in 81^2 = 6561 , the two digits 6 's are separated by the 5.
88 is a term since in 88^2 = 7744 , the digits 7 and 4 are grouped.
approved
editing
proposed
approved