%I #16 Jun 06 2013 14:33:47
%S 421,2521,3361,4201,4621,5881,6301,7561,8821,9241,9661,10501,12601,
%T 13441,14281,15121,15541,16381,18061,18481,20161,21001,21841,24781,
%U 25621,26041,26881,29401,30241,30661,31081,32341,33181,33601,35281,36541,39901,41161
%N Primes p of the form 420k + 1 for some k.
%H Harvey P. Dale, <a href="/A217587/b217587.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5000]], Mod[#, 420] == 1 &] (* _T. D. Noe_, Oct 08 2012 *)
%t Select[420*Range[100]+1,PrimeQ] (* _Harvey P. Dale_, Jun 06 2013 *)
%Y Subsequence of A073102.
%K nonn
%O 1,1
%A _Joshua S.M. Weiner_, Oct 07 2012
|