A288424 Partial sums of A288384.
0, 0, 1, 0, 1, 0, 0, 1, 0, 2, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 2, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 2, 0, 0, 1, 0, 1, 2, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 2, 2, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1
Offset: 0
Keywords
Programs
-
Mathematica
(* function a288384[] is defined in A288384 *) a288424[n_] := Accumulate[a288384[n]] a288424[104] (* data *) (* Hartmut F. W. Hoft, Jun 13 2017 *)
Extensions
Signs reversed at the suggestion of Hartmut F. W. Hoft by Omar E. Pol, Jun 13 2017
Comments