login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A130262 Partial sums of the 'upper' even Fibonacci Inverse A130260. 4
0, 1, 3, 5, 8, 11, 14, 17, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64, 68, 72, 77, 82, 87, 92, 97, 102, 107, 112, 117, 122, 127, 132, 137, 142, 147, 152, 157, 162, 167, 172, 177, 182, 187, 192, 197, 202, 207, 212, 217, 222, 227, 232, 237, 242, 248, 254, 260, 266 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
FORMULA
a(n) = n*A130260(n) - A001519(A130260(n)) + 1.
a(n) = n*A130260(n) - Fib(2*A130260(n)-1) + 1.
G.f.: g(x)=x/(1-x)^2*Sum_{k>=0} x^Fib(2*k).
MATHEMATICA
Table[Sum[Ceiling[Log[GoldenRatio, Sqrt[5]*k]/2], {k, 1, n}], {n, 0, 50}] (* G. C. Greubel, Sep 12 218 *)
PROG
(PARI) for(n=0, 50, print1(sum(k=1, n, ceil(log(sqrt(5)*k)/(2*log((1+ sqrt(5))/2)))), ", ")) \\ G. C. Greubel, Sep 12 2018
(Magma) [0] cat [(&+[ Ceiling(Log(Sqrt(5)*k)/(2*Log((1+ Sqrt(5))/2))): k in [1..n]]): n in [1..50]]; // G. C. Greubel, Sep 12 2018
CROSSREFS
Sequence in context: A084505 A084555 A102696 * A094228 A278586 A001855
KEYWORD
nonn
AUTHOR
Hieronymus Fischer, May 25 2007
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:38 EDT 2024. Contains 371254 sequences. (Running on oeis4.)