A053785 Nextprime(n^4) - n^4.
1, 1, 2, 1, 6, 1, 10, 3, 2, 7, 12, 7, 10, 15, 2, 1, 16, 11, 16, 1, 2, 3, 6, 1, 22, 3, 16, 1, 12, 13, 18, 7, 8, 1, 18, 11, 16, 7, 20, 21, 12, 25, 28, 3, 2, 1, 6, 1, 16, 9, 10, 43, 22, 1, 12, 1, 2, 25, 6, 19, 16, 3, 2, 43, 28, 5, 6, 3, 2, 31, 16, 7, 6, 1, 34, 3, 48, 5, 16, 1, 26, 1, 30, 47
Offset: 1
Examples
a(5)=6 because n^4=625 and next prime is 631; 631-625=6.
Programs
-
Mathematica
Table[NextPrime[n^4]-n^4,{n,90}] (* Harvey P. Dale, Aug 27 2017 *)
-
PARI
a(n) = nextprime(n^4) - n^4; \\ Michel Marcus, Jun 06 2014
Formula
a(n) = A007920(n^4). - Michel Marcus, Jun 06 2014