A039727 [ Even numbers in the sequence generated by b(n)=|b(n-1)+2b(n-2)-n| ], divided by 2.

0, 0, 1, 0, 3, 0, 1, 4, 3, 4, 5, 5, 4, 7, 0, 0, 13, 2, 9, 4, 7, 9, 10, 10, 9, 14, 7, 6, 13, 22, 7, 13, 12, 19, 8, 5, 16, 11, 16, 32, 5, 18, 19, 11, 18, 32, 5, 12, 7, 3, 12, 19, 22, 37, 14, 18, 25, 46, 7, 26, 25, 23, 28, 36, 19, 12, 53, 3, 34, 15, 0, 40, 29, 21, 10, 2, 9, 54, 15, 14, 57, 35

Offset

1,5

Links

Table of n, a(n) for n=1..82.

Mathematica

Select[RecurrenceTable[{a[0]==0, a[1]==1, a[n]==Abs[a[n-1]+2a[n-2]-n]}, a, {n, 200}], EvenQ]/2 (* Harvey P. Dale, Oct 24 2018 *)

Crossrefs

Equals A050821/2.

Sequence in context: A119458 A106356 A091613 * A137176 A143949 A124323

Adjacent sequences: A039724 A039725 A039726 * A039728 A039729 A039730

Keyword

easy,nonn

Author

James A. Sellers

Extensions

Zero prepended by Harvey P. Dale, Oct 24 2018

Status

approved