A288384 a(n) is the n-th term of the leading column of the right triangle in A274650 minus n.
0, 0, 1, -1, 1, -1, 0, 1, -1, 2, -1, -1, 0, 0, 1, -1, 0, 1, -1, 0, 0, 1, -1, 0, 1, -1, 1, -1, 0, 0, 1, -1, 0, 0, 1, -1, 0, 1, -1, 1, -1, 0, 2, -1, -1, 0, 0, 0, 1, -1, 0, 0, 1, -1, 0, 0, 1, -1, 0, 1, -1, 1, -1, 1, 1, -2, 0, 1, -1, 1, 1, -2, 0, 0, 1, -1, 0, 0, 0, 1, -1, 2, 0, -2, 0, 0, 1, -1, 1, -1, 0, 1, -1, 1, -1, 0, 0, 1, -1, 0, 0, 1, -1, 0, 1
Offset: 0
Keywords
Programs
-
Mathematica
(* function a286294[] is defined in A286294 using A274651 *) a288384[n_] := a286294[n] - Range[0,n] a288384[104] (* data *) (* Hartmut F. W. Hoft, Jun 13 2017 *)
Extensions
Signs reversed at the suggestion of Hartmut F. W. Hoft and edited by Omar E. Pol, Jun 13 2017
Comments