A163623 Primes of the form 120*k + 1.
241, 601, 1201, 1321, 1801, 2161, 2281, 2521, 3001, 3121, 3361, 4201, 4441, 4561, 4801, 5281, 5521, 5641, 5881, 6121, 6361, 6481, 6841, 6961, 7321, 7561, 7681, 8161, 8521, 8641, 8761, 9001, 9241, 9601, 9721, 10321, 11161, 12241, 12601, 12721, 12841
Offset: 1
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..5000
Programs
-
Magma
[a: n in [0..250]|IsPrime(a) where a is 120*n+1] // Vincenzo Librandi, Dec 13 2010
-
Mathematica
Select[120*Range[120]+1,PrimeQ] (* Harvey P. Dale, Dec 05 2013 *)
-
PARI
lista(nn) = forprime(p=2, nn, if (!((p-1) % 120), print1(p, ", "))); \\ Michel Marcus, Jul 31 2017
Comments