OFFSET
1,1
LINKS
Frank M Jackson, Table of n, a(n) for n = 1..1000
EXAMPLE
79 = 3^4 - 3; 2399 = 7^4 - 3.
MAPLE
# choose N large, then S is the desired set
f:=n->n^4 - 2:
S:={}:
for n from 0 to N do if(isprime(f(n))) then S:=S union {f(n)}: fi: od:
MATHEMATICA
lst = {}; Do[If[PrimeQ[r=(2k+1)^4-2], AppendTo[lst, r]], {k, 1, 1000}]; lst[[1;; 100]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick Devlin, Apr 25 2012
STATUS
approved