|
%I #7 Oct 07 2013 20:43:52
%S 0,1,2,4,4,6,7,9,10,11,12,15,15,17,18,20,20,23,23,25,27,29,29,32,32,
%T 33,34,37,38,40,40,42,44,45,46,50,50,51,52,54,54,57,57,60,61,62,63,66,
%U 67,68,69,71,71,74,75,78,79,81,81,84,84,85,87,89,89,92,92,94,95,97,97,101
%N [ n/2 ]+[ n/3 ]+[ n/4 ]+[ n/7 ]+[ n/11 ]+[ n/18 ]+[ n/29 ]+[ n/47 ]+[ n/76 ]+[ n/123 ]+[ n/199 ]+... (using Lucas numbers A000032).
%p lucas := proc(n) option remember: if n=0 then RETURN(2) fi: if n=1 then RETURN(1) fi: lucas(n- 1)+lucas(n-2) end: for j from 0 to 100 do it[j] := lucas(j) od: for n from 1 to 200 do printf(`%d,`,floor(n/2) + sum(floor(n/it[k]), k=2..15)) od:
%Y Cf. A038663.
%K nonn
%O 1,3
%A Antreas P. Hatzipolakis (xpolakis(AT)hol.gr)
%E More terms from _James A. Sellers_, Feb 19 2001
|
