login
A107627
Numbers n such that every digit of n and sqrt(n) contains a loop (only digits 0,4,6,8,9 in n and sqrt(n)).
2
64, 4096, 6400, 9604, 409600, 440896, 640000, 806404, 960400, 996004, 40960000, 44089600, 44408896, 64000000, 80640400, 80964004, 96040000, 99600400, 99960004
OFFSET
1,1
COMMENTS
Corresponding square roots in A107626. Cf. A001744 Every digit contains a loop.
LINKS
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