A051750 Primes whose cubes lack zeros.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 41, 53, 61, 71, 83, 97, 113, 137, 139, 151, 157, 167, 173, 179, 181, 191, 197, 211, 233, 239, 241, 251, 257, 263, 277, 283, 293, 307, 331, 337, 347, 353, 359, 373, 379, 383, 389, 409, 421, 433, 457, 461, 463, 499, 503

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Mathematica

Select[Prime[Range[100]], FreeQ[IntegerDigits[#^3], 0]&] (* Harvey P. Dale, Jan 06 2017 *)

Prog

(PARI) isok(n) = isprime(n) && vecmin(digits(n^3)); \\ Michel Marcus, Jan 06 2014

Crossrefs

Cf. A000040, A000578.

Cubes: A052044, A052045, A051751, A051832, A051833. Squares: A052040, A052041, A052042, A052043.

Sequence in context: A347977 A002267 A178762 * A268109 A283225 A100724

Adjacent sequences: A051747 A051748 A051749 * A051751 A051752 A051753

Keyword

base,nonn

Author

G. L. Honaker, Jr., Dec 07 1999

Extensions

More terms from Michel Marcus, Jan 06 2014

Status

approved