A256794 First differences of A256792.

3, 2, 1, 2, 2, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 2, 3, 2, 1, 2, 3, 2, 2, 3, 2, 1, 2, 2, 3, 2, 2, 3, 2, 1, 2, 1, 3, 3, 2, 2, 3, 2, 1, 2, 2, 1, 3, 3, 2, 2, 3, 2, 1, 2, 2, 2, 1, 3, 3, 2, 2, 3, 2, 1, 2, 1, 3, 2, 1, 3, 3, 2, 2, 3, 2, 1, 2, 3, 3, 2

Offset

1,1

Links

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

Example

R(0) = 0;
R(1) = 1;
R(2) = 4 - 2;
R(3) = 4 - 1;
R(4) = 4;
R(5) = 9 - 4.

Mathematica

b[n_] := n^2; bb = Table[b[n], {n, 0, 1000}];  (* Squares as base *)
s[n_] := Table[b[n], {k, 1, 2 n - 1}];
h[1] = {1}; h[n_] := Join[h[n - 1], s[n]];
g = h[100]; r[0] = {0}; r[1] = {1}; r[2] = {4, -2};
r[n_] := If[MemberQ[bb, n], {n}, Join[{g[[n]]}, -r[g[[n]] - n]]];
Table[r[n], {n, 0, 120}]; (* A256789 *)
u = Flatten[Table[Last[r[n]], {n, 1, 1000}]];  (* A256791 *)
u1 = Select[Range[800], u[[#]] > 0 &]; (* A256792 *)
u2 = Select[Range[800], u[[#]] < 0 &]; (* A256793 *)
Differences[u1]  (* A256794 *)
Differences[u2]  (* A256795 *)

Crossrefs

Cf. A256792, A256795.

Sequence in context: A079109 A079099 A213195 * A366899 A068929 A060567

Adjacent sequences: A256791 A256792 A256793 * A256795 A256796 A256797

Keyword

nonn,easy

Author

Clark Kimberling, Apr 13 2015

Status

approved