cp's OEIS Frontend

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

%I A138305 #6 Mar 30 2012 17:22:47
%S A138305 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,
%T A138305 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,
%U A138305 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
%N A138305 Irregular triangle of prime primitive roots of prime(n).
%C A138305 The length of row n is A138304(n).
%H A138305 T. D. Noe, <a href="/A138305/b138305.txt">Rows n=2..100 of triangle, flattened</a>
%e A138305 2;
%e A138305 2,3;
%e A138305 3,5;
%e A138305 2,7;
%e A138305 2,7,11;
%e A138305 3,5,7,11;
%t A138305 Flatten[Table[p=Prime[n]; Select[Prime[Range[n-1]], MultiplicativeOrder[ #,p]==p-1&], {n,100}]]
%Y A138305 Cf. A002233 (least prime primitive root), A060749 (triangle of primitive roots of primes).
%K A138305 nonn,tabf
%O A138305 2,1
%A A138305 _T. D. Noe_, Mar 14 2008