OFFSET
1,1
COMMENTS
The corresponding n are in A217795.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
257 is in the sequence because 4^4+1 = 257 and (4+2)^4+1 = 1297 are both prime.
MAPLE
for n from 0 by 2 to 3500 do: if type(n^4+1, prime)=true and type((n+2)^4+1, prime)=true then printf(`%d, `, n^4+1):else fi:od:
MATHEMATICA
lst={}; Do[p=n^4+1; q=(n+2)^4+1; If[PrimeQ[p] && PrimeQ[q], AppendTo[lst, p]], {n, 0, 3500}]; lst
Select[Partition[Table[n^4+1, {n, 1300}], 3, 1], AllTrue[{#[[1]], #[[3]]}, PrimeQ]&][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 17 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Oct 12 2012
STATUS
approved