A212883 Numbers n such that n^4 - prime(n) is prime.

2, 6, 40, 76, 144, 146, 148, 166, 168, 174, 186, 192, 210, 220, 222, 230, 238, 240, 258, 290, 338, 364, 372, 378, 384, 398, 400, 402, 442, 446, 482, 492, 532, 536, 554, 570, 606, 628, 654, 700, 740, 882, 888, 944, 954, 964, 966, 978, 1038, 1040, 1072, 1080

Offset

1,1

Comments

See A064712 for the sequence of values of n such that n^2-prime(n) is prime. - John W. Layman, May 29 2012

All terms are even. - M. F. Hasler, Jun 02 2012

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

A[1]:= 2: p:= 3: count:= 1:
for n from 4 to 10^4 by 2 do
   p:= nextprime(nextprime(p));
   if isprime(n^4-p) then
     count:= count+1;
     A[count]:= n;
   fi
od:
seq(A[i], i=1..count); # Robert Israel, Jun 20 2017

Mathematica

Reap[Do[If[PrimeQ[n^4-Prime[n]], Sow[n]], {n, 2, 1200, 2}]][[2, 1]]

Prog

(Magma) [n: n in [1..1200]|IsPrime(n^4-NthPrime(n))];
(PARI) for(n=1, 999, isprime(n^4-prime(n))&print1(n", "))  \\ M. F. Hasler, Jun 02 2012

Crossrefs

Cf. A064712, A212881.

Sequence in context: A068207 A331702 A288491 * A336959 A027161 A081096

Adjacent sequences: A212880 A212881 A212882 * A212884 A212885 A212886

Keyword

nonn

Author

Zak Seidov, May 29 2012

Status

approved