|
Search: id:A107626
|
|
|
| A107626 |
|
Numbers n such that every digit of both n and n^2 contains a loop (only digits 0,4,6,8,9 in n and n^2). |
|
+0
2
|
|
| 8, 64, 80, 98, 640, 664, 800, 898, 980, 998, 6400, 6640, 6664, 8000, 8980, 8998, 9800, 9980, 9998
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Corresponding squares in A107627. 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]], {n, 10000}]
|
|
CROSSREFS
|
Cf. A001744, A107624, A107625, A107627.
Adjacent sequences: A107623 A107624 A107625 this_sequence A107627 A107628 A107629
Sequence in context: A008462 A043078 A037413 this_sequence A136956 A074102 A118719
|
|
KEYWORD
|
nonn,base,dumb
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), May 18 2005
|
|
|
Search completed in 0.002 seconds
|
