%I #11 Aug 27 2017 13:00:20
%S 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,
%T 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,
%U 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
%N Nextprime(n^4) - n^4.
%F a(n) = A007920(n^4). - _Michel Marcus_, Jun 06 2014
%e a(5)=6 because n^4=625 and next prime is 631; 631-625=6.
%t Table[NextPrime[n^4]-n^4,{n,90}] (* _Harvey P. Dale_, Aug 27 2017 *)
%o (PARI) a(n) = nextprime(n^4) - n^4; \\ _Michel Marcus_, Jun 06 2014
%Y Cf. A000583, A053786.
%K easy,nonn
%O 1,3
%A _Enoch Haga_, Mar 26 2000