|
%I #6 Nov 18 2018 00:45:32
%S 2,3,3,3,3,2,2,3,7,5,2,2,2,2,2,4,5,3,3,12,4,22,7,3,10,2,2,6,20,12,5,
%T 10,9,6,3,7,12,2,18,3,11,13,3,11,6,3,14,38,11,8,20,23,14,16,26,37,2,
%U 24,10,31,4,20,12,25,13,49,26,6,16,26,4,8,21,38,45,60,50,55,9,2,36,25,111,20
%N a(n) = A089325(n+1)/A089325(n).
%t k = 3; Do[i = 2; While[ !PrimeQ[10*i*k + 1], i++ ]; k *= i; Print[i], {n, 1, 100}] (* _Ryan Propper_, Aug 06 2005 *)
%Y Cf. A089325.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Nov 03 2003
%E More terms from _Ryan Propper_, Aug 06 2005
|
