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

Author

Harry J. Smith, Jan 31 2005

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Primitive Root.

Crossrefs

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

Programs

Mathematica

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

Extensions

Offset corrected by Amiram Eldar, Sep 25 2021