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[Prime[Range[2000]], MemberQ[{1}, Mod[#, 36]]&] (* Vincenzo Librandi, Aug 19 2012 *)
Select[Range[1, 4200, 36], PrimeQ] (* Harvey P. Dale, Sep 11 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(5000) | p mod 36 eq 1]; // Vincenzo Librandi, Aug 19 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), May 21 2004
EXTENSIONS
Edited by N. J. A. Sloane, Jun 17 2014 at the suggestion of Bruno Berselli.
STATUS
approved