login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A256794 First differences of A256792. 2

%I #8 Sep 26 2016 21:44:07

%S 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,

%T 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,

%U 2,1,2,1,3,2,1,3,3,2,2,3,2,1,2,3,3,2

%N First differences of A256792.

%e R(0) = 0;

%e R(1) = 1;

%e R(2) = 4 - 2;

%e R(3) = 4 - 1;

%e R(4) = 4;

%e R(5) = 9 - 4.

%t b[n_] := n^2; bb = Table[b[n], {n, 0, 1000}]; (* Squares as base *)

%t s[n_] := Table[b[n], {k, 1, 2 n - 1}];

%t h[1] = {1}; h[n_] := Join[h[n - 1], s[n]];

%t g = h[100]; r[0] = {0}; r[1] = {1}; r[2] = {4, -2};

%t r[n_] := If[MemberQ[bb, n], {n}, Join[{g[[n]]}, -r[g[[n]] - n]]];

%t Table[r[n], {n, 0, 120}]; (* A256789 *)

%t u = Flatten[Table[Last[r[n]], {n, 1, 1000}]]; (* A256791 *)

%t u1 = Select[Range[800], u[[#]] > 0 &]; (* A256792 *)

%t u2 = Select[Range[800], u[[#]] < 0 &]; (* A256793 *)

%t Differences[u1] (* A256794 *)

%t Differences[u2] (* A256795 *)

%Y Cf. A256792, A256795.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 13 2015

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 20:05 EDT 2024. Contains 371254 sequences. (Running on oeis4.)