OFFSET
1,1
COMMENTS
It is remarkable that up to 4913, numbers congruent to 7 or 23 (mod 30) are more frequently prime than composite.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
MATHEMATICA
Select[Range[2000], CompositeQ[#]&&MemberQ[{7, 23}, Mod[#, 30]]&] (* Harvey P. Dale, Sep 21 2024 *)
PROG
(PARI) for(p=1, 1999, setsearch([7, 23], p%30)&&!isprime(p)&&print1(p", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 02 2013
STATUS
approved