OFFSET
1,1
COMMENTS
Smallest prime(m) such that A001918(m) = prime(n). (Corrected by Jonathan Sondow, Feb 03 2013)
a(36) = 831143041 and a(34) and a(35) > 1065000000. - Robert G. Wilson v, Jul 03 2003
FORMULA
a(n) = A023048(prime(n)). - R. J. Mathar, Aug 03 2018
MATHEMATICA
<< NumberTheory`NumberTheoryFunctions`; a = Table[ 0, {36}]; p = 2; Do[p = NextPrime[p]; pr = PrimitiveRoot[p]; If[ PrimeQ[pr] && PrimePi[pr] < 37 && a[[ PrimePi[pr]]] == 0, a[[ PrimePi[ pr]]] = p], {n, 2, 54000000}]; a
PROG
(PARI) a(n)=if(n<0, 0, s=1; while(prime(n)!=lift(znprimroot(prime(s))), s++); prime(s))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 02 2003
EXTENSIONS
More terms from Robert G. Wilson v, Jul 03 2003
STATUS
approved