The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A178304 Triangle T(n,m) = 1 + f(n+1)*(f(m+1) + f(n-m+1) - 1 - f(n+1)), read by rows, where f(.)=A002487(.). 1
 1, 1, 1, 1, -1, 1, 1, 2, 2, 1, 1, -5, 1, -5, 1, 1, 3, 1, 1, 3, 1, 1, -2, 4, -5, 4, -2, 1, 1, 3, 3, 3, 3, 3, 3, 1, 1, -11, 1, -7, 5, -7, 1, -11, 1, 1, 4, -2, 1, 4, 4, 1, -2, 4, 1, 1, -9, 1, -19, 1, -9, 1, -19, 1, -9, 1 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 0,8 COMMENTS Row sums are 1, 2, 1, 6, -7, 10, 1, 20, -27, 16, -59, ... LINKS EXAMPLE Rows n >= 0, 0 <= k <= n begin   1;   1,   1;   1,  -1,   1;   1,   2,   2,   1;   1,  -5,   1,  -5,   1;   1,   3,   1,   1,   3,   1;   1,  -2,   4,  -5,   4,  -2,   1;   1,   3,   3,   3,   3,   3,   3,   1;   1, -11,   1,  -7,   5,  -7,   1, -11,   1;   1,   4,  -2,   1,   4,   4,   1,  -2,   4,   1;   1,  -9,   1, -19,   1,  -9,   1, -19,   1,  -9,   1; MAPLE A002487 := proc(n) option remember; if n <=1 then n; else if type(n, 'even') then procname(n/2) ; else procname((n-1)/2)+procname(1+(n-1)/2) ; end if; end if; end proc: A178304 := proc(n, m) 1 + A002487(n+1)*( A002487(m+1)+A002487(n-m+1)-1-A002487(n+1) ) ; end proc: seq(seq(A178304(n, k), k=0..n), n=0..15) ; # N. J. A. Sloane, Jul 20 2010 MATHEMATICA a[0] = 0; a[1] = 1; a[n_] := a[n] = If[Mod[n, 2] == 0, a[Floor[n/2]], a[ Floor[(n - 1)/2]] + a[Floor[(n + 1)/2]]]; tg[n_, m_] := 1 + a[n + 1]*a[m + 1] + a[n + 1]*a[n - m + 1] - (a[n + 1]*a[ 0 + 1] + a[n + 1]*a[n - 0 + 1]); Table[Table[tg[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%] CROSSREFS Cf. A002487, A177443. Sequence in context: A064552 A209543 A178655 * A123585 A145668 A318405 Adjacent sequences:  A178301 A178302 A178303 * A178305 A178306 A178307 KEYWORD sign,tabl,easy AUTHOR Roger L. Bagula and Gary W. Adamson, May 24 2010 EXTENSIONS Definition simplified by the Assoc. Eds. of the OEIS, Jul 20 2010 STATUS approved

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

Last modified March 30 12:10 EDT 2020. Contains 333125 sequences. (Running on oeis4.)