%I #11 Sep 25 2021 06:49:35
%S 1,2,11,17,19,23,29,31,37,38,41,43,47,53,58,59,62,67,71,73,74,79,81,
%T 82,83,86,89,94,97,101,107,113,118,121,122,125,127,131,134,137,139,
%U 146,149,151,157,158,162,163,167,173,178,179,191,193,194,197,211,218,223
%N Numbers whose largest primitive root (A046146) is not prime.
%H Amiram Eldar, <a href="/A103336/b103336.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimitiveRoot.html">Primitive Root</a>.
%t Select[Range[250], #==1 || ((p = PrimitiveRootList[#]) != {} && ! PrimeQ[Max @ p]) &] (* _Amiram Eldar_, Sep 25 2021 *)
%Y Cf. A001918, A046144, A046145, A046146, A103309, A103310, A103335, A103337, A103338.
%K nonn
%O 1,2
%A _Harry J. Smith_, Jan 31 2005
%E Offset corrected by _Amiram Eldar_, Sep 25 2021
|