|
|
A183136
|
|
a(n) = [1/r]+[2/r]+...+[n/r], where r = golden ratio = (1+sqrt(5))/2 and []=floor.
|
|
4
|
|
|
0, 1, 2, 4, 7, 10, 14, 18, 23, 29, 35, 42, 50, 58, 67, 76, 86, 97, 108, 120, 132, 145, 159, 173, 188, 204, 220, 237, 254, 272, 291, 310, 330, 351, 372, 394, 416, 439, 463, 487, 512, 537, 563, 590, 617, 645, 674, 703, 733, 763, 794, 826, 858
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = [1/r]+[2/r]+...+[n/r], where r = golden ratio = (1+sqrt(5))/2 and []=floor.
|
|
EXAMPLE
|
The terms [k/r] are given by A060143 (and A005206): 0,1,1,2,3,3,4,4,5,6,6,7,8,8,...
|
|
PROG
|
(PARI) default(realprecision, 100); r=(1+sqrt(5))/2; for(n=1, 99, print1(sum(k=1, n, floor(k/r)), ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|