OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
For n = 4, n^2 + 1 = 17 is prime and (n+2)^2 + 1 = 37 is also prime => 17 is in the sequence.
MAPLE
for n from 1 to 4000 do: x:=n^2+1:y:=(n+2)^2+1:if type(x, prime)=true and type(y, prime)=true then printf(`%d, `, x): else fi:od:
MATHEMATICA
Select[Partition[Range[3000]^2+1, 3, 1], AllTrue[{#[[1]], #[[3]]}, PrimeQ]&][[All, 1]] (* Harvey P. Dale, Jan 16 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michel Lagneau, Feb 06 2012
STATUS
approved