OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..2000
Wanlin Li, Elena Mantovan, Rachel Pries, and Yunqing Tang, Newton Polygons of cyclic covers of the projective line branched at three points, arXiv:1805.04598.[math.NT], 2018 (see Example 3.9, page 8).
MAPLE
select(isprime, select(n->modp(n, 29)=7 or modp(n, 29)=16 or modp(n, 29)=20 or modp(n, 29)=23 or modp(n, 29)=24 or modp(n, 29)=25, [$1..1500])); # Muniru A Asiru, Jun 03 2018
MATHEMATICA
Select[Prime[Range[250]], MemberQ[{7, 16, 20, 23, 24, 25}, Mod[#, 29]]&]
PROG
(Magma) [p: p in PrimesUpTo(1500) | p mod 29 in [7, 16, 20, 23, 24, 25]];
(PARI) is(n) = ispseudoprime(n) && #setintersect([7, 16, 20, 23, 24, 25], Set(lift(Mod(n, 29))))==1 \\ Felix Fröhlich, May 25 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, May 25 2018
STATUS
approved