|
| |
|
|
A107613
|
|
Numbers n such that both n and prime(n) consist of square digits (0,1,4,9).
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Corresponding primes are: 491, 9199, 94441, 109441, 109919, 494441, 1441049, 1441199, 1499149. Cf. A061246 ( Primes with square digits).
|
|
|
MATHEMATICA
| Do[id=Union[IntegerDigits[Prime[n]], IntegerDigits[n]]; If[Count[id, 2]+Count[id, 3]+Count[id, 5]+Count[id, 6]+Count[id, 7]+Count[id, 8]==0, Print[n]], {n, 200000}]
|
|
|
CROSSREFS
| Cf. A061246.
Sequence in context: A086248 A196892 A093294 * A189414 A195757 A017810
Adjacent sequences: A107610 A107611 A107612 * A107614 A107615 A107616
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), May 17 2005
|
| |
|
|
