|
| |
| |
|
|
|
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
|
| |
|
|
