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

Author

T. D. Noe, Mar 14 2008

Keywords

• nonn
• tabf

Comments

The length of row n is A138304(n).

Examples

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

Links

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

Crossrefs

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

Programs

Mathematica

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