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,3

Links

Table of n, a(n) for n=1..72.

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

Cf. A038663.

Sequence in context: A014246 A026413 A342929 * A288573 A288574 A376638

Adjacent sequences: A038666 A038667 A038668 * A038670 A038671 A038672

Keyword

nonn

Author

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

Extensions

More terms from James A. Sellers, Feb 19 2001

Status

approved