A038669 [ 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).

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, 33, 34, 37, 38, 40, 40, 42, 44, 45, 46, 50, 50, 51, 52, 54, 54, 57, 57, 60, 61, 62, 63, 66, 67, 68, 69, 71, 71, 74, 75, 78, 79, 81, 81, 84, 84, 85, 87, 89, 89, 92, 92, 94, 95, 97, 97, 101

Offset: 1

Author

Antreas P. Hatzipolakis (xpolakis(AT)hol.gr)

Keywords

• nonn

Crossrefs

Cf. A038663.

Programs

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:

Extensions

More terms from James Sellers, Feb 19 2001