Unique-period primes in base 8, sorted.
3, 19, 73, 87211, 262657, 18837001, 77158673929, 5302306226370307681801, 19177458387940268116349766612211, 6113142872404227834840443898241613032969, 328017025014102923449988663752960080886511412965881
1
T. D. Noe, Plot of 11 terms
Chris K. Caldwell, Unique prime
(Mma) nn = 1000; t8 = Table[c = Cyclotomic[n, 8]; c/GCD[n, c], {n, 2, nn}]; p8 = Select[t8, PrimePowerQ]; p8 = Table[FactorInteger[i][[1, 1]], {i, p8}]; Take[Sort[p8], 11]
Cf. A040017 (base-10 unique-period primes), A161509 (base 2).
Cf. S000024.
nonn,base
T. D. Noe, May 14 2014