|
%I #7 Mar 03 2018 18:11:40
%S 2521,3361,4201,5881,7561,9241,12601,13441,14281,15121,18481,20161,
%T 21001,21841,26041,26881,29401,30241,31081,33601,35281,41161,42841,
%U 45361,47041,47881,51241,52081,54601,55441,63841,65521,66361,68041,68881,74761,76441,78121
%N Primes p of the form p = 1 + 840*k for some k.
%C This is a prime sequence based on the wheel factorization of 840. There are 192 congruence classes that form prime wheel spokes mod 840.
%H Harvey P. Dale, <a href="/A217862/b217862.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5000]], Mod[#, 840] == 1 &]
%t Select[840*Range[0,100]+1,PrimeQ] (* _Harvey P. Dale_, Mar 03 2018 *)
%K nonn,easy
%O 1,1
%A _Joshua S.M. Weiner_, Oct 13 2012
|
