OFFSET
1,1
COMMENTS
Used in a primality test.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Chris Caldwell, Prime test.
MATHEMATICA
Select[ Range[3, 5000, 17], PrimeQ] (* Vladimir Joseph Stephan Orlovsky, Apr 03 2011 *)
Select[Prime[Range[700]], Mod[#, 17]==3&] (* Harvey P. Dale, Dec 03 2021 *)
PROG
(PARI) forprime(i=1, 6000, if(Mod(i, 17)==3, print1(i, ", ")))
(Magma) [ p: p in PrimesUpTo(10000) | p mod 17 eq 3 ]; // Vincenzo Librandi, Apr 08 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Mar 29 2004
EXTENSIONS
More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr) and Ray Chandler, Mar 30 2004
STATUS
approved