Unique-period primes in base 3 in the order they are found.
2, 13, 5, 11, 7, 1093, 41, 757, 61, 73, 797161, 547, 4561, 1181, 368089, 6481, 398581, 21523361, 2413941289, 530713, 42521761, 23535794707, 47763361, 144542918285300809, 926510094425921, 374857981681, 3754733257489862401973357979128773, 282429005041
1
T. D. Noe, Plot of 100 terms
T. D. Noe, 100 Terms
Chris K. Caldwell, Unique prime
(Mma) nn = 100; t3 = Table[c = Cyclotomic[n, 3]; c/GCD[n, c], {n, 2, nn}]; p3 = Select[t3, PrimePowerQ]; Table[FactorInteger[i][[1, 1]], {i, p3}]
Cf. A040017 (base-10 unique-period primes), A161509 (base 2), A064079.
nonn,base
T. D. Noe, May 14 2014