A030085 Primes p such that digits of p appear in p^2 and p^3.

5, 11, 101, 499, 733, 887, 991, 1021, 1171, 1193, 1201, 1451, 1601, 1621, 1783, 2111, 2161, 2297, 2311, 2677, 2777, 2927, 3323, 3361, 3373, 3613, 4049, 4663, 4943, 4999, 5003, 5519, 5903, 5953, 6131, 6263, 6449, 6451, 6763, 6883, 7333

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[1000]], With[{c=Union[IntegerDigits[#]]}, SubsetQ[ IntegerDigits[ #^2], c]&&SubsetQ[IntegerDigits[#^3], c]]&] (* Harvey P. Dale, Mar 19 2018 *)

Crossrefs

Cf. A030079.

Sequence in context: A007530 A157967 A088268 * A022006 A201074 A056111

Adjacent sequences: A030082 A030083 A030084 * A030086 A030087 A030088

Keyword

nonn,base

Author

Patrick De Geest

Status

approved