OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
Do[id=Union[IntegerDigits[n^2], IntegerDigits[n]]; If[Count[id, 1]+Count[id, 2]+Count[id, 3]+Count[id, 5]+Count[id, 7]==0, Print[n^2]], {n, 10000}]
With[{c={0, 4, 6, 8, 9}}, #^2&/@Select[FromDigits/@Tuples[c, 4], SubsetQ[c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Oct 01 2023 *)
CROSSREFS
KEYWORD
nonn,base,dumb
AUTHOR
Zak Seidov, May 18 2005
STATUS
approved