OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
Map[Block[{q = 2}, While[PowerMod[q, (# - 1)/2, #] != # - 1, q = NextPrime@ q]; q] &, Select[4 Range[350] + 1, PrimeQ]] (* Michael De Vlieger, Dec 29 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Nicholas C. Singer, Dec 13 2019
STATUS
approved