Primes p for which the polynomial (x^73 - 1)/(x - 1) mod p is irreducible.
5, 11, 13, 29, 31, 47, 53, 59, 73, 101, 107, 113, 131, 151, 157, 179, 191, 193, 199, 233, 239, 263, 277, 281, 307, 331, 337, 379, 409, 433, 443, 449, 467, 491, 569, 571, 599, 613, 617, 631, 643, 677, 683, 691, 701, 719, 743, 761, 769, 823, 829, 863, 881
1
This is the 72nd-degree cyclotomic polynomial. These primes p satisfy the congruence p mod 73 == {0, 5, 11, 13, 14, 15, 20, 26, 28, 29, 31, 33, 34, 39, 40, 42, 44, 45, 47, 53, 58, 59, 60, 62, 68}. The fraction of all primes in this sequence is 1/3. If we plotted n versus primepi(s(n)), then the plotted points would be very close to the line having slope 3.
T. D. Noe, Plot of 1000 terms
T. D. Noe, Table of 1000 terms
Wikipedia, Cyclotomic polynomial
(Mma) t = {}; n = 73; p = 1; While[Length[t] < 100, p = NextPrime[p]; If[Length[FactorList[(x^n - 1)/(x - 1), Modulus -> p]] == 2, AppendTo[t, p]]]; t
Cf. A045309, A042993, A045401, S000762-S000782.
nonn
T. D. Noe, Dec 01 2015