OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1300
MATHEMATICA
Prime[ Select[ Range[ 100000], PrimitiveRoot[ Prime[ # ] ] == 38 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 38 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, May 06 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 11 2001
a(21)-a(30) from Vincenzo Librandi, Sep 22 2013
STATUS
approved