OFFSET
1,1
COMMENTS
This linear form produces the most primes for n between 1 and 1000 (411/1000).
Primes congruent to 17 (mod 30). - Omar E. Pol, Aug 15 2007
Primes ending in 7 with (SOD-1)/3 non-integer where SOD is sum of digits. - Ki Punches
Or primes p such that (p mod 3) = (p mod 5) and (p mod 2) <> (p mod 3), (p > 2). - Mikk Heidemaa, Jan 19 2016
REFERENCES
C. Clawson, Mathematical Mysteries, Plenum Press, 1996, p. 173
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A158648(n)*30 + 17. - Ray Chandler, Apr 07 2009
a(n) = A141860(n+1). - Zak Seidov, Apr 15 2015
MATHEMATICA
Select[Prime[Range[1000]], MemberQ[{17}, Mod[#, 30]]&] (* Vincenzo Librandi, Aug 04 2012 *)
Select[Range[17, 3000, 30], PrimeQ] (* Zak Seidov, Apr 15 2015 *)
PROG
(Magma) [p: p in PrimesUpTo(3000) | p mod 30 in [17]]; // Vincenzo Librandi, Aug 04 2012
(PARI) select(n->n%30==17, primes(500)) \\ Charles R Greathouse IV, Apr 28 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended by Ray Chandler, Apr 07 2009
STATUS
approved