A023282 Primes that remain prime through 3 iterations of function f(x) = 4x + 9.
71, 97, 103, 263, 883, 907, 1747, 1867, 2251, 2281, 2693, 2791, 2857, 3067, 3541, 4073, 4513, 4597, 4663, 4793, 6047, 6971, 6983, 8761, 9091, 9203, 9311, 9377, 10343, 11131, 11437, 12037, 12107, 12401, 13451, 13627, 14887, 15881, 16217, 16301, 16493, 16871
Offset: 1
Keywords
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[n: n in [1..150000] | IsPrime(n) and IsPrime(4*n+9) and IsPrime(16*n+45) and IsPrime(64*n+189)] // Vincenzo Librandi, Aug 04 2010
-
Mathematica
Select[Prime@ Range@ 2100, Times @@ Boole@ PrimeQ@ Rest@ NestList[4 # + 9 &, #, 3] > 0 &] (* Michael De Vlieger, Sep 20 2016 *)
Comments