OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..2500
FORMULA
MATHEMATICA
Join[{0, 0}, Table[Sum[Ceiling[Log[GoldenRatio, k + 1/2]], {k, 0, n}], {n, 1, 50}]] (* G. C. Greubel, Sep 12 2018 *)
PROG
(PARI) for(n=-1, 50, print1(if(n==-1, 0, if(n==0, 0, sum(k=0, n, ceil(log(k + 1/2)/log((1+sqrt(5))/2))))), ", ")) \\ G. C. Greubel, Sep 12 2018
(Magma) [0, 0] cat [(&+[Ceiling(Log(k + 1/2)/Log((1+Sqrt(5))/2)) : k in [0..n]]): n in [1..50]]; // G. C. Greubel, Sep 12 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Hieronymus Fischer, May 19 2007
STATUS
approved