OFFSET
1,1
COMMENTS
See comments at A174213.
p^3//1331 is the concatenation of the cubes of two primes.
With the exception of a(1)=2, each term is necessarily of the form 6*k-1.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
The first prime is 2; 2^3 = 8, and 81331 = prime(7958), so a(1)=2.
The smallest prime p > 2 such that p^3//1331 yields a prime is p=107: 107^3 = 1225043, and 12250431331 = prime(552342812), so a(2)=107.
MATHEMATICA
Select[Prime[Range[500]], PrimeQ[10000#^3+1331]&] (* Harvey P. Dale, May 30 2017 *)
PROG
(Magma) [p: p in PrimesUpTo(5000) | IsPrime(Seqint(Intseq(1331) cat Intseq(p^3)))]; // Vincenzo Librandi, Mar 05 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Mar 19 2010
STATUS
approved