OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
MATHEMATICA
Prime[ Select[ Range[4500], PrimitiveRoot[ Prime[ # ] ] == 19 & ] ]
(* or *)
Select[ Prime@Range@4500, PrimitiveRoot@# == 19 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 25 2001
STATUS
approved