This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A140201 Partial sums of A140081. 5
 0, 1, 2, 4, 4, 5, 6, 8, 8, 9, 10, 12, 12, 13, 14, 16, 16, 17, 18, 20, 20, 21, 22, 24, 24, 25, 26, 28, 28, 29, 30, 32, 32, 33, 34, 36, 36, 37, 38, 40, 40, 41, 42, 44, 44, 45, 46, 48, 48, 49, 50, 52, 52, 53, 54, 56, 56, 57, 58, 60, 60, 61, 62, 64, 64, 65, 66, 68, 68, 69, 70, 72, 72, 73, 74 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS Vincenzo Librandi, Table of n, a(n) for n = 0..1000 Index to sequences with linear recurrences with constant coefficients, signature (1,0,0,1,-1). FORMULA a(n) = A047624(n+1) - A042948(A004526(n)). [From Reinhard Zumkeller, Feb 21 2010] a(n) = A002265(n+1) + A057353(n+1). [From Reinhard Zumkeller, Feb 26 2011] G.f.: x*(1+x+2*x^2)/((1+x)*(1+x^2)*(1-x)^2). a(n) = a(n-1)+a(n-4)-a(n-5) for n>4. a(n) = n + A121262(n+1). Bruno Berselli, Jan 27 2011 a(n) = n when n+1 is not a multiple of 4, and a(n) = n+1 when n+1 is a multiple of 4. [From Dennis Walsh, Aug 6 2012] a(n) = A004524(n+1) + A004526(n+1). - Arkadiusz Wesolowski, Sep 17 2012 MATHEMATICA Accumulate[PadRight[{}, 68, {0, 1, 1, 2}]] (* From Harvey P. Dale, Aug 19 2011 *) PROG (MAGMA) I:=[0, 1, 2, 4, 4]; [n le 5 select I[n] else Self(n-1)+Self(n-4)-Self(n-5): n in [1..80]]; // Vincenzo Librandi, Sep 17 2012 CROSSREFS Sequence in context: A071193 A071192 A100921 * A057861 A133143 A085898 Adjacent sequences:  A140198 A140199 A140200 * A140202 A140203 A140204 KEYWORD easy,nonn AUTHOR Nadia Heninger and N. J. A. Sloane, Jun 09 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .