A120474 Second differences of A004001.

1, -1, 1, 0, -1, 0, 1, 0, 0, -1, 1, -1, 0, 0, 1, 0, 0, 0, -1, 1, 0, -1, 1, -1, 0, 1, -1, 0, 0, 0, 1, 0, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, -1, 1, -1, 0, 1, 0, -1, 1, -1, 0, 1, -1, 0, 0, 1, -1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, -1, 1, -1, 0, 1, 0, 0, -1, 1, 0, -1, 1, -1, 0, 1, 0, -1, 1, -1, 0, 1, -1, 0, 0, 1

Offset

1,1

Comments

Takes values in {0,1,-1}.

Links

R. J. Mathar, Table of n, a(n) for n = 1..9998

Formula

a(n) = A004001(n+2) - 2*A004001(n+1) + A004001(n) = A093879(n+1) - A093879(n).

Mathematica

Differences[#, 2] &@ Nest[Append[#1, #1[[#1[[-1]] ]] + #1[[#2 - #1[[-1]] ]] ] & @@ {#, Length@ # + 1} &, {1, 1}, 105] (* Michael De Vlieger, Nov 05 2018 *)

Crossrefs

Cf. A004001. First differences of A093879.

Sequence in context: A266843 A373486 A353491 * A266789 A098370 A075439

Adjacent sequences: A120471 A120472 A120473 * A120475 A120476 A120477

Keyword

sign

Author

Roger L. Bagula, Jul 06 2006

Extensions

Edited by N. J. A. Sloane, Oct 01 2006

Status

approved