|
|
A107613
|
|
Numbers n such that both n and prime(n) consist of square digits (0,1,4,9).
|
|
1
|
|
|
94, 1140, 9109, 10404, 10449, 41104, 110000, 110010, 114101, 910140, 910190, 910191, 940111, 940141, 940409, 11049914, 94011001, 94011004, 94019941, 94019990, 94109190, 94109191, 94440910, 190004449, 190011049, 190011090, 190011091, 190011909, 190011999, 190149101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Corresponding primes are: 491, 9199, 94441, 109441, 109919, 494441, 1441049, 1441199, 1499149, which form a subsequence of A061246 (primes with square digits).
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|