A152833 a(0) = -3; a(n) = n-a(n-1).

-3, 4, -2, 5, -1, 6, 0, 7, 1, 8, 2, 9, 3, 10, 4, 11, 5, 12, 6, 13, 7, 14, 8, 15, 9, 16, 10, 17, 11, 18, 12, 19, 13, 20, 14, 21, 15, 22, 16, 23, 17, 24, 18, 25, 19, 26, 20, 27, 21, 28, 22, 29, 23, 30, 24, 31, 25, 32, 26, 33, 27, 34, 28, 35, 29, 36, 30, 37, 31, 38, 32, 39, 33, 40, 34

Offset

0,1

Links

Table of n, a(n) for n=0..74.

Formula

a(n) = (2n+1-13*(-1)^n)/4. G.f.: -(3-7x+3x^2)/((1+x)(1-x)^2). - R. J. Mathar, Jan 08 2009

Mathematica

lst={}; a=3; Do[a=n-a; AppendTo[lst, a], {n, 0, 6!}]; lst
RecurrenceTable[{a[0]==-3, a[n]==n-a[n-1]}, a, {n, 80}] (* Harvey P. Dale, May 16 2016 *)

Crossrefs

Cf. A084964, A152832.

Sequence in context: A238373 A078069 A090131 * A139525 A246832 A133570

Adjacent sequences: A152830 A152831 A152832 * A152834 A152835 A152836

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Dec 14 2008

Extensions

Indices added to definition, offset corrected by R. J. Mathar, Jan 08 2009

Status

approved