%I #8 Apr 27 2015 14:23:40
%S 3,2,2,7,2,3,3,3,2,7,3,2,7,2,5,13,11,3,3,2,2,3,2,5,3,2,2,31,5,2,37,2,
%T 2,3,2,5,7,2,3,3,2,11,3,2,5,3,2,7,3,11,2,13,2,3,7,5,5,3,2,2,3,3,13,7,
%U 2,2,3,2,2,31,3,3,13,2,3,3,3,3,3,2,2,7,29,3,3,2,2,31,3,2,3,17,2,7,2,5,7,11
%N Smallest prime p such that 10*n*p +1 is prime.
%e 31,41,61,281, etc. are primes.
%t With[{prs=Prime[Range[100]]},Table[SelectFirst[prs,PrimeQ[10n*#+1]&],{n,100}]] (* The program uses the SelectFirst function from Mathematica version 10 *) (* _Harvey P. Dale_, Apr 27 2015 *)
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 03 2003
%E More terms from _David Wasserman_, Sep 13 2005
|