A217587 Primes p of the form 420k + 1 for some k.
421, 2521, 3361, 4201, 4621, 5881, 6301, 7561, 8821, 9241, 9661, 10501, 12601, 13441, 14281, 15121, 15541, 16381, 18061, 18481, 20161, 21001, 21841, 24781, 25621, 26041, 26881, 29401, 30241, 30661, 31081, 32341, 33181, 33601, 35281, 36541, 39901, 41161
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Subsequence of A073102.
Programs
-
Mathematica
Select[Prime[Range[5000]], Mod[#, 420] == 1 &] (* T. D. Noe, Oct 08 2012 *) Select[420*Range[100]+1,PrimeQ] (* Harvey P. Dale, Jun 06 2013 *)