A167727 Cubes that becomes a prime number when prefixed with a 3.
1, 343, 4913, 226981, 389017, 456533, 571787, 912673, 1295029, 2352637, 5177717, 5735339, 7645373, 9129329, 10218313, 11089567, 19902511
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A032666.
Programs
-
Mathematica
a441 = Select[Range[1, 5000, 2]^3, PrimeQ[FromDigits[Join[{3}, IntegerDigits[#]]]] &] (* G. C. Greubel, Jun 21 2016 *)
Comments