Unique-period primes in base 6, sorted.
7, 31, 37, 43, 311, 1297, 46441, 55987, 1678321, 1950271, 51828151, 1822428931, 2527867231, 3655688315536801, 4760317816590150361, 7369130657357778596659, 189491931189200021056951, 412482688627178079807598675848631
1
T. D. Noe, Plot of 18 terms
Chris K. Caldwell, Unique prime
(Mma) nn = 1000; t6 = Table[c = Cyclotomic[n, 6]; c/GCD[n, c], {n, 2, nn}]; p6 = Select[t6, PrimePowerQ]; p6 = Table[FactorInteger[i][[1, 1]], {i, p6}]; Take[Sort[p6], 20]
Cf. A040017 (base-10 unique-period primes), A161509 (base 2), A064082.
Cf. S000022.
nonn,base
T. D. Noe, May 14 2014