OFFSET
1,2
LINKS
Bruno Berselli, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[500]^3, PrimeQ[FromDigits[Join[{1}, IntegerDigits[#]]]]&] (* Harvey P. Dale, Oct 30 2014 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Nov 10 2009
STATUS
approved