OFFSET
1,1
EXAMPLE
2+79=3^4, 79+1217=6^4, etc.
MATHEMATICA
a=2; s={a}; Do[p=n^4-a; If[p>a&&PrimeQ[p], AppendTo[s, p]; a=p], {n, 2, 3000}]; s
sp4p[n_]:=Module[{k=NextPrime[n]}, While[!IntegerQ[Surd[n+k, 4]], k = NextPrime[ k]]; k]; NestList[sp4p, 2, 21] (* Harvey P. Dale, Apr 02 2018 *)
PROG
(PARI) print1(s=a=2); for(n=1, 99, until(isprime(s++^4-a), ); print1(", "a=s^4-a)) \\ M. F. Hasler, Oct 03 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 04 2006
EXTENSIONS
Edited by Zak Seidov, Sep 28 2010, Oct 03 2010
STATUS
approved