A167728 Cubes that becomes a prime number when prefixed with a 4.
1, 729, 2197, 9261, 29791, 250047, 389017, 531441, 658503, 912673, 1367631, 1860867, 2685619, 5000211, 5545233, 7189057, 8120601, 15069223, 19034163, 20346417, 21253933, 24137569, 29503629
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A032667.
Programs
-
Mathematica
Select[Range[1, 500000, 2]^3, PrimeQ[FromDigits[Join[{4}, IntegerDigits[#]]]] &] (* G. C. Greubel, Jun 21 2016 *)
Comments