%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