1,1
(PARI) a(n)=if(n<0, 0, s=1; while(abs(prime(n)-lift(znprimroot(prime(s)))>0, s++); s)
Cf. A001918, A023048, A066529.
Sequence in context: A032200 A130969 A034750 * A030039 A018105 A035056
Adjacent sequences: A079057 A079058 A079059 * A079061 A079062 A079063
nonn
Benoit Cloitre (benoit7848c(AT)orange.fr), Feb 02 2003