Irregular triangle in which row n has the numbers having S000549(n) primitive roots.
1, 2, 3, 4, 6, 5, 7, 9, 10, 14, 18, 11, 13, 22, 26, 19, 27, 38, 54, 17, 25, 31, 34, 50, 62, 29, 37, 43, 49, 58, 74, 86, 98, 41, 61, 82, 122, 81, 162, 97, 103, 194, 206, 109, 127, 218, 254, 83, 89, 101, 121, 125, 151, 166, 178, 202, 242, 250, 302, 113, 131, 157
1
T. D. Noe, Plot of 55 irregular rows
T. D. Noe, Table of 55 irregular rows
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], {n, mnLst}]]
nonn,tabf
T. D. Noe, Mar 25 2015