OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
38318210940 = 3371^3 + 3373^2 is a term since both (3371, 3373) and (38318210939, 38318210941) are twin primes.
MATHEMATICA
a={}; Do[p1=Prime[n]; p2=Prime[n+1]; pp=p1^3+p2^2; If[(p2-p1)==2&&PrimeQ[pp-1]&&PrimeQ[pp+1], AppendTo[a, pp]], {n, 10^4}]; Print[a];
Select[#[[1]]^3+#[[2]]^2&/@Select[Partition[Prime[Range[15000]], 2, 1], #[[2]] - #[[1]]==2&], AllTrue[#+{1, -1}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 01 2021 *)
PROG
(Magma) [q:k in [1..10000]|IsPrime((NthPrime(k)+2)) and IsPrime(q-1)and IsPrime(q+1) where q is NthPrime(k)^3+ (NthPrime(k)+2)^2]; // Marius A. Burtea, Dec 22 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 16 2008
EXTENSIONS
More terms from Amiram Eldar, Dec 22 2019
STATUS
approved