A217862 Primes p of the form p = 1 + 840*k for some k.
2521, 3361, 4201, 5881, 7561, 9241, 12601, 13441, 14281, 15121, 18481, 20161, 21001, 21841, 26041, 26881, 29401, 30241, 31081, 33601, 35281, 41161, 42841, 45361, 47041, 47881, 51241, 52081, 54601, 55441, 63841, 65521, 66361, 68041, 68881, 74761, 76441, 78121
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[5000]], Mod[#, 840] == 1 &] Select[840*Range[0,100]+1,PrimeQ] (* Harvey P. Dale, Mar 03 2018 *)
Comments