A138305 Irregular triangle of prime primitive roots of prime(n).

2, 2, 3, 3, 5, 2, 7, 2, 7, 11, 3, 5, 7, 11, 2, 3, 13, 5, 7, 11, 17, 19, 2, 3, 11, 19, 3, 11, 13, 17, 2, 5, 13, 17, 19, 7, 11, 13, 17, 19, 29, 3, 5, 19, 29, 5, 11, 13, 19, 23, 29, 31, 41, 43, 2, 3, 5, 19, 31, 41, 2, 11, 13, 23, 31, 37, 43, 47, 2, 7, 17, 31, 43, 59, 2, 7, 11, 13, 31, 41, 61, 7

Offset

2,1

Comments

The length of row n is A138304(n).

Links

T. D. Noe, Rows n=2..100 of triangle, flattened

Example

2;
2,3;
3,5;
2,7;
2,7,11;
3,5,7,11;

Mathematica

Flatten[Table[p=Prime[n]; Select[Prime[Range[n-1]], MultiplicativeOrder[ #, p]==p-1&], {n, 100}]]

Crossrefs

Cf. A002233 (least prime primitive root), A060749 (triangle of primitive roots of primes).

Sequence in context: A165129 A113773 A060749 * A169897 A254309 A079375

Adjacent sequences: A138302 A138303 A138304 * A138306 A138307 A138308

Keyword

nonn,tabf

Author

T. D. Noe, Mar 14 2008

Status

approved