%I #8 Sep 25 2021 06:40:55
%S 2,2,2,3,5,7,5,3,7,7,11,13,23,19,17,29,31,23,41,29,31,41,29,47,37,43,
%T 41,71,47,79,83,89,43,83,59,73,127,83,109,67,89,101,89,89,97,107,113,
%U 151,79,79,107,113,149,157,191,193,199,113,197,191,211,113,227,131,193,241
%N Numbers of prime primitive roots associated with A100141(n).
%H Amiram Eldar, <a href="/A100142/b100142.txt">Table of n, a(n) for n = 1..1000</a>
%t f[n_] := Module[{p = Select[PrimitiveRootList[n], PrimeQ], m}, m = Length[p]; If[MemberQ[p, m] && PrimeQ[m], m, 0]]; Select[f /@ Range[3000], # > 0 &] (* _Amiram Eldar_, Sep 25 2021 *)
%Y Cf. A100141.
%K easy,nonn
%O 1,1
%A _Sven Simon_, Nov 07 2004
%E Offset corrected and a(2) inserted by _Amiram Eldar_, Sep 25 2021
|