_Artur Jasinski (grafix(AT)csl.pl), _, Jan 07 2012

editing

approved

Sum of A201206 from 1 to n

Cumulative sums of A201206.

1, 3, 6, 9, 12, 16, 20, 24, 29, 34, 38, 44, 49, 55, 61, 67, 73, 79, 86, 92, 99, 106, 113, 121, 128, 136, 144, 152, 160, 168, 176, 185, 193, 202, 211, 220, 229, 238, 248, 257, 267, 277, 286, 296, 306, 317, 327, 337, 348, 358, 369, 380, 391, 402, 413, 424, 436

xx = Round[y^(2/3)]; dd = xx^3 - y^2; If[dd > 0 && d1 < 0, ile1 = ile1 + ile; AppendTo[aa, ile1]; ile = 0]; d1 = dd, {y, 2, 1000}]; aa

proposed

editing

editing

proposed

allocated for Artur JasinskiSum of A201206 from 1 to n

1, 3, 6, 9, 12, 16, 20, 24, 29, 34, 38, 44, 49, 55, 61, 67, 73, 79, 86, 92, 99, 106, 113, 121, 128, 136, 144, 152, 160, 168, 176, 185, 193, 202, 211, 220, 229, 238, 248, 257, 267, 277, 286, 296, 306, 317, 327, 337, 348, 358

1,2

ile = 0; ile1 = 0; aa = {}; d1 = -1; Do[ile = ile + 1;

xx = Round[y^(2/3)]; dd = xx^3 - y^2; If[dd > 0 && d1 < 0, ile1 = ile1 + ile; AppendTo[aa, ile1]; ile = 0]; d1 = dd, {y, 2, 1000}]; aa

allocated

nonn

Artur Jasinski (grafix(AT)csl.pl), Jan 07 2012

approved

editing

allocated for Artur Jasinski

recycled

allocated

reviewed

approved

proposed

reviewed

editing

proposed

v(n+1)/v(n), where v=A202768.

3, 40, 1260, 72576, 6652800, 889574400, 163459296000, 39520825344000, 12164510040883200, 4644631106519040000, 2154334728240414720000, 1193170003333152768000000, 777776389315596582912000000, 589450799582646796969574400000

1,1

Is this a duplicate of A110468? - R. J. Mathar, Jan 05 2012

f[j_] := j^2; z = 15;

v[n_] := Product[Product[f[k] - f[j], {j, 1, k - 1}], {k, 2, n}]

Table[v[n], {n, 1, z}] (* A202768 *)

Table[v[n + 1]/v[n], {n, 1, z - 1}] (* A203302 *)

Cf. A202768, A000290.

nonn,new

recycled

Clark Kimberling (ck6(AT)evansville.edu), Jan 01 2012

proposed

editing