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