A103336 Numbers whose largest primitive root (A046146) is not prime.

1, 2, 11, 17, 19, 23, 29, 31, 37, 38, 41, 43, 47, 53, 58, 59, 62, 67, 71, 73, 74, 79, 81, 82, 83, 86, 89, 94, 97, 101, 107, 113, 118, 121, 122, 125, 127, 131, 134, 137, 139, 146, 149, 151, 157, 158, 162, 163, 167, 173, 178, 179, 191, 193, 194, 197, 211, 218, 223

Offset

1,2

Links

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

Eric Weisstein's World of Mathematics, Primitive Root.

Mathematica

Select[Range[250], #==1 || ((p = PrimitiveRootList[#]) != {} && ! PrimeQ[Max @ p]) &] (* Amiram Eldar, Sep 25 2021 *)

Crossrefs

Cf. A001918, A046144, A046145, A046146, A103309, A103310, A103335, A103337, A103338.

Sequence in context: A012019 A012185 A012253 * A019402 A038927 A105877

Adjacent sequences: A103333 A103334 A103335 * A103337 A103338 A103339

Keyword

nonn

Author

Harry J. Smith, Jan 31 2005

Extensions

Offset corrected by Amiram Eldar, Sep 25 2021

Status

approved