Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #25 Sep 08 2022 08:44:47
%S 2,17,101,107,401,821,947,1151,1487,2027,2207,2411,2741,2927,3851,
%T 4391,4691,5231,5861,6701,7001,8297,8807,9341,9587,9851,10067,11117,
%U 11447,11897,12107,12911,16187,17657,20681,20771,20807,21221,21227,21491,21521
%N Primes that remain prime through 2 iterations of function f(x) = 8x + 1.
%C Primes p such that 8*p+1 and 64*p+9 are also primes. - _Vincenzo Librandi_, Aug 04 2010
%H Harvey P. Dale, <a href="/A023260/b023260.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2500]],And@@PrimeQ[Rest[NestList[8#+1&,#,2]]]&] (* _Harvey P. Dale_, Jan 26 2013 *)
%o (Magma) [n: n in [1..100000] | IsPrime(n) and IsPrime(8*n+1) and IsPrime(64*n+9)] // _Vincenzo Librandi_, Aug 04 2010
%K nonn
%O 1,1
%A _David W. Wilson_