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.

A059250 Square array read by antidiagonals: T(k,n) = binomial(n-1, k) + Sum_{i=0..k} binomial(n, i), k >= 1, n >= 0.

Original entry on oeis.org

1, 1, 2, 1, 2, 4, 1, 2, 4, 6, 1, 2, 4, 8, 8, 1, 2, 4, 8, 14, 10, 1, 2, 4, 8, 16, 22, 12, 1, 2, 4, 8, 16, 30, 32, 14, 1, 2, 4, 8, 16, 32, 52, 44, 16, 1, 2, 4, 8, 16, 32, 62, 84, 58, 18, 1, 2, 4, 8, 16, 32, 64, 114, 128, 74, 20, 1, 2, 4, 8, 16, 32, 64, 126, 198, 186, 92, 22, 1, 2, 4, 8, 16, 32, 64
Offset: 1

Views

Author

N. J. A. Sloane, Feb 15 2001

Keywords

Comments

T(k,n) = maximal number of regions into which k-space can be divided by n hyperspheres (k >= 1, n >= 0).
For all fixed k, the sequences T(k,n) are complete. - Frank M Jackson, Jan 26 2012
T(k-1,n) is also the number of regions created by n generic hyperplanes through the origin in k-space (k >= 2). - Kent E. Morrison, Nov 11 2017

Examples

			Array begins
  1, 2, 4, 6,  8, 10, 12, ...
  1, 2, 4, 8, 14, 22, ...
  1, 2, 4, 8, 16, ...
		

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 73, Problem 4.

Crossrefs

Cf. A014206 (dim 2), A046127 (dim 3), A059173 (dim 4), A059174 (dim 5).
Apart from border, same as A059214. If the k=0 row is included, same as A178522.

Programs

  • Mathematica
    getvalue[n_, k_] := If[n==0, 1, Binomial[n-1, k]+Sum[Binomial[n, i],{i, 0,k}]]; lexicographicLattice[{dim_, maxHeight_}] := Flatten[Array[Sort@Flatten[(Permutations[#1] &) /@     IntegerPartitions[#1 + dim - 1, {dim}], 1] &, maxHeight], 1]; pairs=lexicographicLattice[{2, 13}]-1; Table[getvalue[First[pairs[[j]]], Last[pairs[[j]]]+1], {j, 1, Length[pairs]}] (* Frank M Jackson, Mar 16 2013 *)

Formula

T(k,n) = 2 * Sum_{i=0..k-1} binomial(n-1, i), k >= 1, n >= 1. - Kent E. Morrison, Nov 11 2017

Extensions

Corrected and edited by N. J. A. Sloane, Aug 31 2011, following a suggestion from Frank M Jackson

A178522 Triangle read by rows: T(n,k) is the number of nodes at level k in the Fibonacci tree of order n (n>=0, 0<=k<=n-1).

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 2, 1, 2, 4, 2, 1, 2, 4, 6, 2, 1, 2, 4, 8, 8, 2, 1, 2, 4, 8, 14, 10, 2, 1, 2, 4, 8, 16, 22, 12, 2, 1, 2, 4, 8, 16, 30, 32, 14, 2, 1, 2, 4, 8, 16, 32, 52, 44, 16, 2, 1, 2, 4, 8, 16, 32, 62, 84, 58, 18, 2, 1, 2, 4, 8, 16, 32, 64, 114, 128, 74, 20, 2, 1, 2, 4, 8, 16, 32, 64, 126
Offset: 0

Views

Author

Emeric Deutsch, Jun 15 2010

Keywords

Comments

A Fibonacci tree of order n (n>=2) is a complete binary tree whose left subtree is the Fibonacci tree of order n-1 and whose right subtree is the Fibonacci tree of order n-2; each of the Fibonacci trees of order 0 and 1 is defined as a single node.
Sum of entries in row n is A001595(n).
Sum_{k=0..n-1} k*T(n,k) = A178523(n).

Examples

			Triangle starts:
1,
1,
1,2,
1,2,2,
1,2,4,2,
1,2,4,6,2,
1,2,4,8,8,2,
1,2,4,8,14,10,2,
1,2,4,8,16,22,12,2,
1,2,4,8,16,30,32,14,2,
...
		

References

  • D. E. Knuth, The Art of Computer Programming, Vol. 3, 2nd edition, Addison-Wesley, Reading, MA, 1998, p. 417.

Crossrefs

Cf. A001595, A059214, A178523, A067331, A002940. See A059250 for another version.

Programs

  • Maple
    G := (1-t*z+t*z^2)/((1-z)*(1-t*z-t*z^2)): Gser := simplify(series(G, z = 0, 17)): for n from 0 to 15 do P[n] := sort(coeff(Gser, z, n)) end do: 1; for n to 13 do seq(coeff(P[n], t, k), k = 0 .. n-1) end do; # yields sequence in triangular form

Formula

G.f.: G(t,z)=(1-tz+tz^2)/[(1-z)(1-tz-tz^2)].
T(k,n) = T(k-1,n-1)+T(k-1,n) with T(0,0)=1, T(k,0)=1 for k>0, T(0,n)=2 for n>0. - Frank M Jackson, Aug 30 2011

A216274 Square array A(n,k) = maximal number of regions into which k-space can be divided by n hyperplanes (k >= 1, n >= 0), read by antidiagonals.

Original entry on oeis.org

1, 1, 2, 1, 2, 3, 1, 2, 4, 4, 1, 2, 4, 7, 5, 1, 2, 4, 8, 11, 6, 1, 2, 4, 8, 15, 16, 7, 1, 2, 4, 8, 16, 26, 22, 8, 1, 2, 4, 8, 16, 31, 42, 29, 9, 1, 2, 4, 8, 16, 32, 57, 64, 37, 10, 1, 2, 4, 8, 16, 32, 63, 99, 93, 46, 11, 1, 2, 4, 8, 16, 32, 64, 120, 163, 130, 56, 12
Offset: 0

Views

Author

Frank M Jackson, Mar 16 2013

Keywords

Comments

For all fixed k, the sequences A(n,k) are "complete" (sic).
This array is similar to A145111 with first variation at 34th term.

Examples

			Square array A(n,k) begins:
  1,  1,  1,  1,  1,  1, ...
  2,  2,  2,  2,  2,  2, ...
  3,  4,  4,  4,  4,  4, ...
  4,  7,  8,  8,  8,  8, ...
  5, 11, 15, 16, 16, 16, ...
  6, 16, 26, 31, 32, 32, ...
So the maximal number of pieces into which a cube can be divided after 5 planar cuts is A(5,3) = 26.
		

Crossrefs

Programs

  • Mathematica
    getvalue[n_, k_] := Sum[Binomial[n, i], {i, 0, k}]; lexicographicLattice[{dim_, maxHeight_}] := Flatten[Array[Sort@Flatten[(Permutations[#1] &) /@IntegerPartitions[#1+dim-1, {dim}], 1] &, maxHeight], 1]; pairs = lexicographicLattice[{2, 12}]-1; Table[getvalue[First[pairs[[j]]], Last[pairs[[j]]]+1], {j, 1, Length[pairs]}]

Formula

A(k,n) = Sum_{i=0..k} C(n, i), k >=1, n >= 0.

Extensions

Edited by N. J. A. Sloane, May 20 2023
Showing 1-3 of 3 results.