OFFSET
1,2
COMMENTS
All the terms are even numbers except for a(1) = 1. - Metin Sariyar, Nov 23 2019
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..5000
MATHEMATICA
Join[{1}, Select[Range[2, 10^6, 2], PrimeQ[#^2+1]&&PrimeQ[#^2+#+1]&]] (* Metin Sariyar, Nov 23 2019 *)
PROG
(Magma) [n: n in [0..10000]| IsPrime(n^2+1) and IsPrime(n^2+n+1)] // Vincenzo Librandi, Aug 07 2010
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 23 2002
STATUS
approved