|
%I #12 Mar 27 2019 19:12:49
%S 1,1,2,2,3,5,7,13,25,59,170,644,3402,27178,361139,8947437,474314304
%N Smallest number m such that Sum_{k=1..m} 1/prime(k) >= n/5.
%C a(18) > 5*10^10. - _Robert Price_, Dec 10 2013
%t Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/5, m++];
%t m, {n, 1, 17}] (* _Robert Price_, Mar 27 2019 *)
%Y Cf. A016088, A046024, A103591-A103600.
%K nonn
%O 1,3
%A _James R. Buddenhagen_, Mar 28 2005
%E a(2)-a(3) and a(16)-a(17) from _Robert Price_, Dec 10 2013
|
