%I #27 Sep 08 2022 08:45:05
%S 1,2,6,14,20,24,54,66,90,110,150,176,206,236,314,584,644,686,696,860,
%T 864,890,920,950,960,1070,1146,1274,1314,1340,1434,1440,1494,1566,
%U 1616,1644,1676,1700,1716,1970,1974,2054,2064,2136,2360,2430,2456,2604,2646
%N Numbers n such that n^2 + 1 and n^2 + n + 1 are primes.
%C All the terms are even numbers except for a(1) = 1. - _Metin Sariyar_, Nov 23 2019
%H Seiichi Manyama, <a href="/A067664/b067664.txt">Table of n, a(n) for n = 1..5000</a>
%t Join[{1}, Select[Range[2, 10^6, 2], PrimeQ[#^2+1]&&PrimeQ[#^2+#+1]&]] (* _Metin Sariyar_, Nov 23 2019 *)
%o (Magma) [n: n in [0..10000]| IsPrime(n^2+1) and IsPrime(n^2+n+1)] // _Vincenzo Librandi_, Aug 07 2010
%Y Cf. A005574, A002384.
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, Feb 23 2002