cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A063394 Border sum triangle, read by rows: Let T(n,0)=T(n,n)=1. In general T(n,m) is the sum of the elements (apart from T(n,m) itself) in the border of the rectangle with vertices T(0,0), T(n-m,0), T(n,m) and T(m,m).

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 7, 7, 1, 1, 15, 19, 15, 1, 1, 31, 47, 47, 31, 1, 1, 63, 111, 131, 111, 63, 1, 1, 127, 255, 343, 343, 255, 127, 1, 1, 255, 575, 863, 979, 863, 575, 255, 1, 1, 511, 1279, 2111, 2655, 2655, 2111, 1279, 511, 1, 1, 1023, 2815, 5055, 6943, 7683, 6943, 5055, 2815, 1023, 1
Offset: 0

Views

Author

Floor van Lamoen, Jul 16 2001

Keywords

Examples

			The triangle begins:
..........1
........1...1
......1...3...1
....1...7...7...1
..1..15..19...15..1
E.g. 19 = 7 + 1 + 1 + 1 + 1 + 1 + 7.
		

Crossrefs

T(1, n) gives A000225(n+1), T(2, n) for n>0 gives A006589.
Other diagonals: A063396, A063397, A063398, A063395.

Programs

  • Maple
    T:=proc(n,m) option remember; local i,j,k,t1,t2,t3; if m < 0 or m > n then RETURN(0); fi; if m = 0 or m = n then RETURN(1); fi; add( T(n-i,m-i),i=1..m) + add( T(n-i,m),i=1..n-m) + add( T(n-m-i,0),i=1..n-m) + add( T(i,i),i=1..m-1); end;
    U:=(1-2*z-2*w+5*z*w-2*z^2*w^2)/(1-z)/(1-w)/(1-2*z-2*w+3*z*w);

Formula

If m < 0 or m > n then T(n, m) = 0; if m = 0 or m = n then T(n, m) = 1; otherwise T(n, m) = Sum( T(n-i, m-i), i=1..m) + Sum( T(n-i, m), i=1..n-m) + Sum( T(n-m-i, 0), i=1..n-m) + Sum( T(i, i), i=1..m-1).
The U-coordinates are nicer. Label the elements U(0, 0), U(1, 0), U(0, 1), U(2, 0), U(1, 1), U(0, 2), ...
Then U(n, 0) = U(0, m) = 1; for n>=1, m>=1, U(n, m) = Sum_{i=0..n-1} U(i, 0) + Sum_{j=0..m-1} U(0, j) - U(0, 0) + Sum_{j=0..m-1} U(n, j) + Sum_{i=0..n-1} U(i, m). Hence U(z, w) = Sum U(n, m) z^n w^m = (1-2*z-2*w+5*z*w-2*z^2*w^2)/((1-z)*(1-w)*(1-2*z-2*w+3*z*w)). - N. J. A. Sloane, Jun 16 2005

Extensions

Entry revised by N. J. A. Sloane, Jun 15 2005
a(51)=2111 corrected by Georg Fischer, Jul 29 2020

A063396 T(3,n) with T(n,m) as in A063394.

Original entry on oeis.org

1, 15, 47, 131, 343, 863, 2111, 5055, 11903, 27647, 63487, 144383, 325631, 729087, 1622015, 3588095, 7897087, 17301503, 37748735, 82051071, 177733631, 383778815, 826277887, 1774190591, 3800039423, 8120172543, 17314086911, 36842766335, 78248935423
Offset: 0

Views

Author

Floor van Lamoen, Jul 16 2001

Keywords

Crossrefs

Programs

  • Mathematica
    Join[{1},LinearRecurrence[{7,-18,20,-8},{15,47,131,343},30]] (* Harvey P. Dale, Jul 31 2014 *)
  • PARI
    Vec(-(20*x^4-52*x^3+40*x^2-8*x-1)/((x-1)*(2*x-1)^3) + O(x^100)) \\ Colin Barker, May 27 2015

Formula

For n>0, 1/4 * [(n+1)(n+2)2^n + 10(n+1)2^n + 6*2^n - 4]. - Ralf Stephan, May 08 2004
G.f.: -(20*x^4-52*x^3+40*x^2-8*x-1) / ((x-1)*(2*x-1)^3). - Colin Barker, May 27 2015

A063397 T(4,n) with T(n,m) as in A063394.

Original entry on oeis.org

1, 31, 111, 343, 979, 2655, 6943, 17663, 43967, 107519, 259071, 616447, 1451007, 3383295, 7823359, 17956863, 40943615, 92798975, 209190911, 469237759, 1047789567, 2329935871, 5161091071, 11391729663, 25060966399, 54962159615, 120191975423, 262127222783
Offset: 0

Views

Author

Floor van Lamoen, Jul 16 2001

Keywords

Crossrefs

Programs

  • Mathematica
    LinearRecurrence[{9,-32,56,-48,16},{1,31,111,343,979,2655},30] (* Harvey P. Dale, Mar 30 2024 *)
  • PARI
    Vec(-(76*x^5-244*x^4+280*x^3-136*x^2+22*x+1) / ((x-1)*(2*x-1)^4) + O(x^100)) \\ Colin Barker, May 27 2015

Formula

a(n) = (6*(-4+27*2^n)+191*2^n*n+15*2^(1+n)*n^2+2^n*n^3)/24 for n>0. - Colin Barker, May 27 2015
G.f.: -(76*x^5-244*x^4+280*x^3-136*x^2+22*x+1) / ((x-1)*(2*x-1)^4). - Colin Barker, May 27 2015
Showing 1-3 of 3 results.