OFFSET
1,1
COMMENTS
Contains all numbers with no zero that start with 32. - Robert Israel, Jun 25 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
J. Browkin, Groebner basis.
EXAMPLE
a(1)=32 because 1024 = 32^2.
MAPLE
filter:= proc(n) local L;
L:= convert(n, base, 10);
if member(0, L) then return false fi;
L:= convert(n^2, base, 10);
member(0, L)
end proc:
select(filter, [$1..1000]); # Robert Israel, Jun 25 2019
MATHEMATICA
a = {}; Do[Do[Do[k = 100s + 10n + m; w = IntegerDigits[k^2]; If[MemberQ[w, 0], AppendTo[a, k]], {n, 1, 9}], {m, 1, 9}], {s, 0, 9}]; Union[a]
Select[Range[300], DigitCount[#, 10, 0]==0&&DigitCount[#^2, 10, 0]>0&] (* Harvey P. Dale, Mar 20 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Nov 13 2007
EXTENSIONS
Definition clarified by Harvey P. Dale, Mar 20 2012
STATUS
approved