OFFSET
1,3
MAPLE
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:
CROSSREFS
KEYWORD
nonn
AUTHOR
Antreas P. Hatzipolakis (xpolakis(AT)hol.gr)
EXTENSIONS
More terms from James A. Sellers, Feb 19 2001
STATUS
approved