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,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

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

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

Adjacent sequences: A107610 A107611 A107612 * A107614 A107615 A107616

Keyword

nonn,base

Author

Zak Seidov, May 17 2005

Extensions

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

Status

approved