A023292 - OEIS

A023292

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

31, 191, 821, 3271, 11171, 13121, 14591, 21521, 27751, 30341, 35951, 37561, 39671, 40231, 43651, 51061, 51551, 56671, 68161, 73681, 84871, 91541, 92581, 102031, 102871, 102881, 104971, 117281, 127781, 128201, 128551, 128761, 138511, 148091

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Primes p such that 8*p+3, 64*p+27 and 512*p+219 are also primes. - Vincenzo Librandi, Aug 04 2010

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MATHEMATICA

Select[Prime[Range[14000]], AllTrue[Rest[NestList[8#+3&, #, 3]], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 09 2015 *)

PROG

(Magma) [n: n in [1..450000] | IsPrime(n) and IsPrime(8*n+3) and IsPrime(64*n+27) and IsPrime(512*n+219)]; // Vincenzo Librandi, Aug 04 2010

CROSSREFS

Sequence in context: A165130 A229145 A261354 * A100689 A055816 A274501

Adjacent sequences: A023289 A023290 A023291 * A023293 A023294 A023295

KEYWORD

nonn

AUTHOR

David W. Wilson

STATUS

approved