A107613 Numbers n such that both n and prime(n) consist of square digits (0,1,4,9).

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

Author

Zak Seidov, May 17 2005

Keywords

• nonn
• base

Comments

Corresponding primes are: 491, 9199, 94441, 109441, 109919, 494441, 1441049, 1441199, 1499149, which form a subsequence of A061246 (primes with square digits).

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..216

Crossrefs

Cf. A061246.

Programs

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}]

Extensions

a(10)-a(30) from Chai Wah Wu, Jan 30 2019