A167725 Cubes that become a prime number when prefixed with a 1.
1, 27, 2197, 35937, 59319, 1092727, 1295029, 1860867, 2685619, 4330747, 4826809, 5000211, 5929741, 6128487, 8869743, 9393931, 24137569, 26198073, 27818127, 29503629, 38958219, 50243409, 54439939, 60698457, 75686967, 91733851, 95443993, 99252847
Offset: 1
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n^3: n in [1..10^3 by 2] | IsPrime(t) where t is Seqint(Reverse([1] cat Reverse(Intseq(n^3))))]; // Bruno Berselli, May 24 2012
-
Mathematica
Select[Range[500]^3,PrimeQ[FromDigits[Join[{1},IntegerDigits[#]]]]&] (* Harvey P. Dale, Oct 30 2014 *)