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)).

64, 4096, 6400, 9604, 409600, 440896, 640000, 806404, 960400, 996004, 40960000, 44089600, 44408896, 64000000, 80640400, 80964004, 96040000, 99600400, 99960004

Offset: 1

Author

Zak Seidov, May 18 2005

Keywords

• nonn
• base
• dumb

Comments

Corresponding square roots in A107626. Cf. A001744 Every digit contains a loop.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..100

Crossrefs

Cf. A001744, A107624, A107625, A107626.

Programs

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 *)