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,1

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

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

Cf. A001744, A107624, A107625, A107626.

Sequence in context: A208268 A184759 A324491 * A017571 A016746 A189268

Adjacent sequences: A107624 A107625 A107626 * A107628 A107629 A107630

Keyword

nonn,base,dumb

Author

Zak Seidov, May 18 2005

Status

approved