login
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
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
Cf. A061246.
Sequence in context: A328088 A196892 A093294 * A220797 A220961 A218648
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 17 2005
EXTENSIONS
a(10)-a(30) from Chai Wah Wu, Jan 30 2019
STATUS
approved