A023313 Primes that remain prime through 4 iterations of function f(x) = 5x + 2.
373, 1171, 13687, 21997, 25657, 61603, 74413, 76471, 84199, 87181, 93487, 114691, 135859, 170761, 174877, 184333, 192979, 196177, 207931, 209743, 244219, 276229, 286687, 292561, 297811, 334603, 338893, 405037, 408361, 417097, 439141, 446323
Offset: 1
Keywords
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[n: n in [1..1000000] | IsPrime(n) and IsPrime(5*n+2) and IsPrime(25*n+12) and IsPrime(125*n+62) and IsPrime(625*n+312)]; // Vincenzo Librandi, Aug 04 2010
-
Mathematica
Select[Range[10^6], Times @@ Boole@ Map[PrimeQ, NestList[5 # + 2 &, #, 4]] == 1 &] (* Michael De Vlieger, Jan 09 2017 *)
Formula
a(n) == 31 or 37 (mod 42). - John Cerkan, Oct 07 2016
Comments