login
A023264
Primes that remain prime through 2 iterations of function f(x) = 8x + 9.
3
23, 43, 83, 109, 193, 379, 389, 569, 643, 659, 853, 1063, 1129, 1283, 1423, 1493, 1759, 1789, 1889, 2003, 2129, 2293, 2459, 2713, 2729, 2879, 2969, 3373, 3823, 4519, 4603, 4649, 4663, 4703, 4783, 4789, 5023, 5153, 5209, 5639, 5653, 5669, 5693, 5783, 6203
OFFSET
1,1
COMMENTS
Primes p such that 8*p+9 and 64*p+81 are also primes. - Vincenzo Librandi, Aug 04 2010
FORMULA
a(n) == 3 or 9 (mod 10). - John Cerkan, Sep 16 2016
MATHEMATICA
Select[Prime[Range[1000]], AllTrue[Rest[NestList[8#+9&, #, 2]], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 26 2016 *)
PROG
(Magma) [n: n in [1..100000] | IsPrime(n) and IsPrime(8*n+9) and IsPrime(64*n+81)] // Vincenzo Librandi, Aug 04 2010
CROSSREFS
Subsequence of A023232 and of A153762.
Sequence in context: A158283 A155786 A296563 * A180534 A138975 A168439
KEYWORD
nonn
STATUS
approved