A111048 - OEIS

%I #2 Feb 11 2014 19:05:43

%S 4,3,4,3,7,5,10,6,5,16,7,11,22,12,9,10,31,12,18,37,14,21,15,13,26,52,

%T 27,55,29,10,33,23,70,15,76,27,28,42,29,30,91,20,97,50,100,18,19,57,

%U 115,59,40,121,26,43,44,45,136,47,71,142,30,22,78,157,80,24,57,35,175,89,60,46

%N a(n) = least i such that prime(n)/prime(n+1) < 1 - 1/i.

%t f[n_] := Module[{a, b, i = 1}, a = Prime[n]; b = Prime[n + 1]; While[a/b >= 1 - 1/i, i = i + 1]; i]; Table[f[i], {i, 1, 100}]

%K nonn

%O 1,1

%A _Joseph L. Pe_, Oct 06 2005