|
Search: id:A107627
|
|
|
| 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)). |
|
+0
2
|
|
| 64, 4096, 6400, 9604, 409600, 440896, 640000, 806404, 960400, 996004, 40960000, 44089600, 44408896, 64000000, 80640400, 80964004, 96040000, 99600400, 99960004
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Corresponding square roots in A107626. Cf. A001744 Every digit contains a loop.
|
|
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}]
|
|
CROSSREFS
|
Cf. A001744, A107624, A107625, A107626.
Sequence in context: A017319 A036531 A017439 this_sequence A017571 A016746 A089357
Adjacent sequences: A107624 A107625 A107626 this_sequence A107628 A107629 A107630
|
|
KEYWORD
|
nonn,base,dumb
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), May 18 2005
|
|
|
Search completed in 0.005 seconds
|
