A070269 Primes for which the smallest positive primitive root is odd and nonprime.

2, 409, 439, 3631, 4441, 4657, 8681, 12841, 15889, 16633, 21559, 22751, 28393, 30091, 30937, 32257, 32353, 33811, 33871, 36793, 36871, 41809, 41851, 42193, 46649, 48673, 51631, 55921, 58237, 59053, 59497, 60889, 63691, 64609, 71011

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

onpQ[n_]:=Module[{pr=PrimitiveRoot[n, 1]}, OddQ[pr]&&!PrimeQ[pr]]; Select[ Prime[ Range[7100]], onpQ]  (* Harvey P. Dale, Jun 22 2020 *)

Prog

(PARI) forprime(n=1, 100000, if((-1)^(lift(znprimroot(n))*(1-isprime(lift(znprimroot(n)))))==-1, print1(n, ", ")))

Crossrefs

Cf. A047936, A001918.

Sequence in context: A214597 A283661 A067827 * A352837 A352848 A349764

Adjacent sequences: A070266 A070267 A070268 * A070270 A070271 A070272

Keyword

easy,nonn

Author

Benoit Cloitre, May 09 2002

Status

approved