The last number having S000549(n) primitive roots.
6, 18, 26, 54, 62, 98, 122, 162, 206, 254, 302, 422, 486, 542, 662, 686, 842, 926, 1262, 1322, 1458, 1502, 1622, 2102, 2342, 2642, 2942, 3062, 3242, 3482, 4622, 5462, 5942, 7142, 7262, 9242, 9662, 9902, 10562, 12182, 12602, 13122, 14702, 16382, 18482, 19322, 19742, 21422, 23102, 23942, 24782, 25202, 28562, 32762, 36962
1
T. D. Noe, Plot of 55 terms
Eric W. Weisstein, MathWorld: Primitive Root
(Mma) nn=10000; t = Join[{1}, Table[pr = PrimitiveRootList[n]; Length[pr], {n, 2, 50000}]]; mn = Infinity; mnLst = {}; Do[If[0 < t[[n]] < mn, mn = t[[n]]; AppendTo[mnLst, mn]], {n, nn, 1, -1}]; mnLst = Select[Reverse[mnLst], # < 0.08*nn &]; Flatten[Table[Position[t, n][[-1, 1]], {n, mnLst}]]
nonn
T. D. Noe, Mar 25 2015