A248207 Primitive root of the multiplicative group mod n as returned by PARI version 2.7.2, or 0 when there is no primitive root.

1, 2, 3, 2, 5, 3, 0, 2, 7, 2, 0, 2, 3, 0, 0, 3, 11, 2, 0, 0, 13, 5, 0, 2, 15, 2, 0, 2, 0, 3, 0, 0, 3, 0, 0, 2, 21, 0, 0, 6, 0, 3, 0, 0, 5, 5, 0, 3, 27, 0, 0, 2, 29, 0, 0, 0, 31, 2, 0, 2, 3, 0, 0, 0, 0, 2, 0, 0, 0, 7, 0, 5, 39, 0, 0, 0, 0, 3, 0, 2, 47, 2, 0, 0, 3, 0, 0, 3, 0, 0, 0, 0, 5, 0, 0, 5, 3, 0, 0

Offset

2,2

Links

Table of n, a(n) for n=2..100.

Prog

(PARI)
a(n) = if(#znstar(n)[3]>1, 0, lift(znprimroot(n)));
vector(99, n, a(n+1))

Crossrefs

Cf. A174621 (smallest primitive root, taking -1 for n with no primitive root).

Cf. A046145 (smallest primitive root, taking 0 for n with no primitive root).

Sequence in context: A132962 A046145 A103309 * A174621 A369029 A007967

Adjacent sequences: A248204 A248205 A248206 * A248208 A248209 A248210

Keyword

nonn

Author

Joerg Arndt, Jan 11 2015

Status

approved