|
%I #15 Sep 23 2013 13:46:03
%S 5881,23209,31391,39841,43801,53089,53881,61151,65831,88079,92569,
%T 99961,101089,102001,111409,135719,136751,141961,150721,169991,175081,
%U 196081,207481,216841,224401,250799,256369,271489,275521,276721,285757
%N Primes with 31 as smallest positive primitive root.
%H Vincenzo Librandi, <a href="/A061735/b061735.txt">Table of n, a(n) for n = 1..5000</a>
%t Select[Prime@Range@25000, PrimitiveRoot@# == 31 &] (* _Robert G. Wilson v_, May 11 2001 *)
%Y Cf. A001918, A001126, A019357.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, May 06 2001
|
