|
%I #10 Oct 03 2019 05:03:49
%S 61,71,83,23,59,61,661,23,71,20639383,439429,521,79,811,1697,14557,
%T 1080941,257,2281,50989,67411,137,83,14029308060317546154181,
%U 57554485363,59,70552493296669,59,694763,293,6007711,12893,1021,149,71,24324571,9293,12318573951317236818169524329
%N Smallest prime p associated with A064164(n).
%H Amiram Eldar, <a href="/A064229/b064229.txt">Table of n, a(n) for n = 1..120</a>
%e 8!+1 = 61*661 and 61 is not 1 mod 8, so the first term is 61.
%o (PARI) choose(n) = {my(f=factor(n!+1)[, 1]); for(i=1, #f, if(f[i]%n != 1, return(f[i]))); 0; }
%o lista(nn) = for(k=1, nn, if(choose(k)>1, print1(choose(k), ", "))); \\ _Jinyuan Wang_, Oct 03 2019
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Sep 23 2001
%E More terms from _Don Reble_, Sep 23 2001
|
