login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes that remain prime through 2 iterations of function f(x) = 8x + 1.
3

%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_