S000019


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

S000019

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

© Tony D Noe 2014-2015