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-10 of 27 results. Next

A228572 Triangle read by rows, formed from antidiagonals of triangle A228570: T(n,k) = A034851(n-3*k, k) for n >= 0 and 0 <= k <= floor(n/4).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 1, 3, 2, 1, 4, 4, 1, 4, 6, 1, 5, 9, 1, 1, 5, 12, 2, 1, 6, 16, 6, 1, 6, 20, 10, 1, 7, 25, 19, 1, 1, 7, 30, 28, 3, 1, 8, 36, 44, 9, 1, 8, 42, 60, 19, 1, 9, 49, 85, 38, 1, 1, 9, 56, 110, 66, 3
Offset: 0

Views

Author

Johannes W. Meijer, Aug 26 2013

Keywords

Comments

The row sums of this triangle are A192928.
Moving the terms in each column of this triangle, see the example, upwards to row 0 gives Losanitsch’s triangle A034851 as a square array. Observe A102541 and A228570 for the same phenomenom. The number of zeros in the columns for these three triangles are multiples of 2, 3 and 4 respectively.
Also the number of equivalence classes of ways of placing k 4 X 4 tiles in an n X 4 rectangle under all symmetry operations of the rectangle. - Christopher Hunt Gribble, Apr 24 2015

Examples

			The first few rows of triangle T(n, k) are:
   n/k: 0, 1, 2, 3
   0:   1
   1:   1
   2:   1
   3:   1
   4:   1, 1
   5:   1, 1
   6:   1, 2
   7:   1, 2
   8:   1, 3, 1
   9:   1, 3, 2
  10:   1, 4, 4
  11:   1, 4, 6
  12:   1, 5, 9, 1
		

Crossrefs

Programs

  • Maple
    T := proc(n, k) option remember: if n <0 then return(0) fi: if k < 0 or k > floor(n/4) then return(0) fi: A034851(n-3*k, k) end: A034851 := proc(n, k) option remember; local t; if k = 0 or k = n then return(1) fi; if n mod 2 = 0 and k mod 2 = 1 then t := binomial(n/2-1, (k-1)/2) else t := 0; fi; A034851(n-1, k-1) + A034851(n-1, k) - t; end: seq(seq(T(n, k), k=0..floor(n/4)), n=0..21); # End first program
    T := proc(n,k) option remember: if n=0 and k=0 or n=1 and k=0 or n=2 and k=0 or n=3 and k=0 then return(1) fi: if k <0 or k > floor(n/4) then return(0) fi: if type(n, odd) and type(k, odd) then procname(n-1,k) + procname(n-4, k-1) - binomial((n+3)/2 - 3*(k+1)/2 - 1,(k+1)/2-1) else procname(n-1, k) + procname(n-4, k-1)  fi: end: seq(seq(T(n, k), k=0..floor(n/4)), n=0..21); # End second program
  • Mathematica
    T[n_, k_] := (Binomial[n - 3k, k] + Boole[EvenQ[k] || EvenQ[n]]* Binomial[(n - 3k - Mod[k, 2] - Mod[n, 2])/2, Quotient[k, 2]])/2; Table[T[n, k], {n, 0, 20}, {k, 0, Quotient[n, 4]}] // Flatten (* Jean-François Alcover, Oct 06 2017, after Andrew Howroyd *)
  • PARI
    T(n,k)={(binomial(n-3*k,k) + (k%2==0||n%2==0)*binomial((n-3*k-k%2-n%2)/2,k\2))/2}
    for(n=1,20,for(k=0,(n\4), print1(T(n,k), ", "));print) \\ Andrew Howroyd, May 29 2017

Formula

T(n, k) = A034851(n-3*k, k) for n >= 0 and 0 <= k <= floor(n/4).
T(n, k) = T(n-1, k) + T(n-4, k-1) - C((n+3)/2 - 3*(k+1)/2-1, (k+1)/2-1), where the last term is present only if n odd and k odd; T(0, 0) = 1, T(1, 0) = 1, T(2, 0) = 1, T(3, 0) = 1, T(n, k) = 0 for n < 0 and T(n, k) = 0 for k < 0 and k > floor(n/4).

A228571 The backwards antidiagonal sums of triangle A228570.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 5, 4, 7, 6, 10, 10, 14, 15, 20, 24, 30, 35, 45, 53, 69, 79, 104, 120, 157, 184, 236, 281, 356, 431, 540, 656, 821, 1001, 1252, 1525, 1908, 2328, 2909, 3557, 4434, 5436, 6762
Offset: 0

Views

Author

Johannes W. Meijer, Aug 26 2013

Keywords

Comments

The a(n) equal the backwards antidiagonal sums of triangle A228570.

Crossrefs

Programs

  • Maple
    f := x -> (1/((1-x^2-x^5)) + (1+x^2+x^5)/(1-x^4-x^10))/2 : seq(coeff(series(f(x), x, n+1), x, n), n=0..50);  # End first program
    a := proc(n): (A001687(n+1) + x(n) + x(n-2) + x(n-5))/2 end: A001687 := proc(n) option remember: if n=0 then 0 elif n=1 then 1 elif n=2 then 0 elif n=3 then 1 elif n=4 then 0 else procname(n-2) + procname(n-5) fi: end: x := proc(n) local x: if n <0 then return(0) fi: if type(n, even) then A001687((n+2)/2) else 0 fi: end: seq(a(n), n=0..50); # End second program

Formula

a(n) = sum(A228570(n-k, n-2*k), k=0..floor(n/2)).
G.f.: (1/2)*(1/(1-x^2-x^5) + (1+x^2+x^5)/(1-x^4-x^10)).

A034851 Rows of Losanitsch's triangle T(n, k), n >= 0, 0 <= k <= n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 4, 2, 1, 1, 3, 6, 6, 3, 1, 1, 3, 9, 10, 9, 3, 1, 1, 4, 12, 19, 19, 12, 4, 1, 1, 4, 16, 28, 38, 28, 16, 4, 1, 1, 5, 20, 44, 66, 66, 44, 20, 5, 1, 1, 5, 25, 60, 110, 126, 110, 60, 25, 5, 1, 1, 6, 30, 85, 170, 236, 236, 170, 85, 30, 6, 1, 1, 6, 36, 110, 255
Offset: 0

Views

Author

Keywords

Comments

Sometimes erroneously called "Lossnitsch's triangle". But the author's name is Losanitsch (I have seen the original paper in Chem. Ber.). This is a German version of the Serbian name Lozanic. - N. J. A. Sloane, Jun 29 2008
For n >= 3, a(n-3,k) is the number of series-reduced (or homeomorphically irreducible) trees which become a path P(k+1) on k+1 nodes, k >= 0, when all leaves are omitted (see illustration). Proof by Pólya's enumeration theorem. - Wolfdieter Lang, Jun 08 2001
The number of ways to put beads of two colors in a line, but take symmetry into consideration, so that 011 and 110 are considered the same. - Yong Kong (ykong(AT)nus.edu.sg), Jan 04 2005
Alternating row sums are 1,0,1,0,2,0,4,0,8,0,16,0,... - Gerald McGarvey, Oct 20 2008
The triangle sums, see A180662 for their definitions, link Losanitsch's triangle A034851 with several sequences, see the crossrefs. We observe that the Ze3 and Ze4 sums link Losanitsch's triangle with A005683, i.e., R. K. Guy's Twopins game. - Johannes W. Meijer, Jul 14 2011
T(n-(L-1)k, k) is the number of ways to cover an n-length line by exactly k L-length segments excluding symmetric covers. For L=2 it is corresponds to A102541, for L=3 to A228570 and for L=4 to A228572. - Philipp O. Tsvetkov, Nov 08 2013
Also the number of equivalence classes of ways of placing k 1 X 1 tiles in an n X 1 rectangle under all symmetry operations of the rectangle. - Christopher Hunt Gribble, Feb 16 2014
T(n, k) is the number of non-isomorphic outer planar graphs of order n+3, size n+3+k, and maximum degree k+2. - Christian Barrientos, Oct 18 2018
From Álvar Ibeas, Jun 01 2020: (Start)
T(n, k) is the sum of even-degree coefficients of the Gaussian polynomial [n, k]_q. The area below a NE lattice path between (0,0) and (k, n-k) is even for T(n, k) paths and odd for A034852(n, k) of them.
For a (non-reversible) string of k black and n-k white beads, consider the minimum number of bead transpositions needed to place the black ones to the left and the white ones to the right (in other words, the number of inversions of the permutation obtained by labeling the black beads by integers 1,...,k and the white ones by k+1,...,n, in the same order they take on the string). It is even for T(n, k) strings and odd for A034852(n, k) cases.
(End)
Named after the Serbian chemist, politician and diplomat Simeon Milivoje "Sima" Lozanić (1847-1935). - Amiram Eldar, Jun 10 2021
T(n, k) is the number of caterpillars with a perfect matching, with 2n+2 vertices and diameter 2n-1-k. - Christian Barrientos, Sep 12 2023

Examples

			Triangle begins
  1;
  1,  1;
  1,  1,  1;
  1,  2,  2,  1;
  1,  2,  4,  2,  1;
  1,  3,  6,  6,  3,  1;
  1,  3,  9, 10,  9,  3,  1;
  1,  4, 12, 19, 19, 12,  4,  1;
  1,  4, 16, 28, 38, 28, 16,  4,  1;
  1,  5, 20, 44, 66, 66, 44, 20,  5,  1;
		

Crossrefs

Triangle sums (see the comments): A005418 (Row), A011782 (Related to Row2), A102526 (Related to Kn11, Kn12, Kn13, Kn21, Kn22, Kn23), A005207 (Kn3, Kn4), A005418 (Fi1, Fi2), A102543 (Ca1, Ca2), A192928 (Gi1, Gi2), A005683 (Ze3, Ze4).
Sums of squares of terms in rows equal A211208.

Programs

  • Haskell
    a034851 n k = a034851_row n !! k
    a034851_row 0 = [1]
    a034851_row 1 = [1,1]
    a034851_row n = zipWith (-) (zipWith (+) ([0] ++ losa) (losa ++ [0]))
                                ([0] ++ a204293_row (n-2) ++ [0])
       where losa = a034851_row (n-1)
    a034851_tabl = map a034851_row [0..]
    -- Reinhard Zumkeller, Jan 14 2012
  • Maple
    A034851 := proc(n,k) option remember; local t; if k = 0 or k = n then return(1) fi; if n mod 2 = 0 and k mod 2 = 1 then t := binomial(n/2-1,(k-1)/2) else t := 0; fi; A034851(n-1,k-1)+A034851(n-1,k)-t; end: seq(seq(A034851(n, k), k=0..n), n=0..11);
  • Mathematica
    t[n_?EvenQ, k_?OddQ] := Binomial[n, k]/2; t[n_, k_] := (Binomial[n, k] + Binomial[Quotient[n, 2], Quotient[k, 2]])/2; Flatten[Table[t[n, k], {n, 0, 12}, {k, 0, n}]](* Jean-François Alcover, Feb 07 2012, after PARI *)
  • PARI
    {T(n, k) = (1/2) *(binomial(n, k) + binomial(n%2, k%2) * binomial(n\2, k\2))}; /* Michael Somos, Oct 20 1999 */
    

Formula

T(n, k) = (1/2) * (A007318(n, k) + A051159(n, k)).
G.f. for k-th column (if formatted as lower triangular matrix a(n, k)): x^k*Pe(floor((k+1)/2), x^2)/(((1-x)^(k+1))*(1+x)^(floor((k+1)/2))), where Pe(n, x^2) := Sum_{m=0..floor(n/2)} A034839(n, m)*x^(2*m) (row polynomials of Pascal array even numbered columns). - Wolfdieter Lang, May 08 2001
a(n, k) = a(n-1, k-1) + a(n-1, k) - C(n/2-1, (k-1)/2), where the last term is present only if n is even and k is odd (see Sloane link).
T(n, k) = T(n-2, k-2) + T(n-2, k) + C(n-2, k-1), n > 1.
Let P(n, x, y) = Sum_{m=0..n} a(n, m)*x^m*y^(n-m), then for x > 0, y > 0 we have P(n, x, y) = (x+y)*P(n-1, x, y) for n odd and P(n, x, y) = (x+y)*P(n-1, x, y) - x*y*(x^2+y^2)^((n-2)/2) for n even. - Gerald McGarvey, Feb 15 2005
T(n, k) = T(n-1, k-1) + T(n-1, k) - A204293(n-2, k-1), 0 < k <= n and n > 1. - Reinhard Zumkeller, Jan 14 2012
From Christopher Hunt Gribble, Feb 25 2014: (Start)
It appears that:
T(n,k) = C(n,k)/2, n even, k odd;
T(n,k) = (C(n,k) + C(n/2,k/2))/2, n even, k even;
T(n,k) = (C(n,k) + C((n-1)/2,(k-1)/2))/2, n odd, k odd;
T(n,k) = (C(n,k) + C((n-1)/2,k/2))/2, n odd, k even.
(End)

Extensions

More terms from James Sellers, May 04 2000
Name edited by Johannes W. Meijer, Aug 26 2013

A238009 Number T(n,k) of equivalence classes of ways of placing k 2 X 2 tiles in an n X 3 rectangle under all symmetry operations of the rectangle; irregular triangle T(n,k), n>=2, 0<=k<=floor(n/2), read by rows.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 1, 2, 4, 1, 3, 8, 3, 1, 3, 12, 8, 1, 4, 18, 22, 6, 1, 4, 24, 40, 22, 1, 5, 32, 73, 66, 10, 1, 5, 40, 112, 146, 48, 1, 6, 50, 172, 292, 174, 20, 1, 6, 60, 240, 516, 448, 116, 1, 7, 72, 335, 860, 1020, 464, 36, 1, 7, 84, 440, 1340, 2016, 1360, 256
Offset: 2

Views

Author

Keywords

Examples

			The first 19 rows of T(n,k) are:
   n\k 0  1   2    3    4     5     6     7     8    9  10
   2   1  1
   3   1  1
   4   1  2   2
   5   1  2   4
   6   1  3   8    3
   7   1  3  12    8
   8   1  4  18   22    6
   9   1  4  24   40   22
  10   1  5  32   73   66    10
  11   1  5  40  112  146    48
  12   1  6  50  172  292   174    20
  13   1  6  60  240  516   448   116
  14   1  7  72  335  860  1020   464    36
  15   1  7  84  440 1340  2016  1360   256
  16   1  8  98  578 2010  3716  3400  1168    72
  17   1  8 112  728 2890  6336  7432  3840   584
  18   1  9 128  917 4046 10326 14864 10600  2920  136
  19   1  9 144 1120 5502 16016 27536 25344 10600 1280
  20   1 10 162 1368 7336 24066 48188 54992 31800 7080 272
		

Crossrefs

Programs

  • PARI
    T(n,k)={(2^k*binomial(n-1*k,k) + ((k%2==0)+(n%2==0||k%2==0)+(k==0)) * 2^((k+1)\2)*binomial((n-1*k-(k%2)-(n%2))/2,k\2))/4}
    for(n=2,20,for(k=0,floor(n/2), print1(T(n,k), ", "));print) \\ Andrew Howroyd, May 29 2017

Extensions

Corrected C++ program and xrefs added by Christopher Hunt Gribble, Apr 25 2015

A231145 Number T(n,k) of equivalence classes of ways of placing k 2 X 2 tiles in an n X 5 rectangle under all symmetry operations of the rectangle; irregular triangle T(n,k), n>=2, 0<=k<=n-n%2, read by rows.

Original entry on oeis.org

1, 2, 2, 1, 2, 4, 1, 4, 13, 10, 4, 1, 4, 23, 35, 23, 1, 6, 40, 101, 125, 54, 10, 1, 6, 58, 206, 403, 336, 106, 1, 8, 83, 392, 1056, 1438, 956, 240, 25, 1, 8, 109, 641, 2281, 4424, 4718, 2409, 473, 1, 10, 142, 1011, 4429, 11370, 17252, 14478, 6094, 1020, 70
Offset: 2

Views

Author

Keywords

Examples

			The first 8 rows of T(n,k) are:
.\ k  0     1     2     3     4     5     6     7     8
n
2     1     2     2
3     1     2     4
4     1     4    13    10     4
5     1     4    23    35    23
6     1     6    40   101   125    54    10
7     1     6    58   206   403   336   106
8     1     8    83   392  1056  1438   956   240    25
9     1     8   109   641  2281  4424  4718  2409   473
		

Crossrefs

Extensions

Terms corrected and xrefs updated by Christopher Hunt Gribble, Apr 26 2015

A231473 Number T(n,k) of equivalence classes of ways of placing k 3 X 3 tiles in an n X 5 rectangle under all symmetry operations of the rectangle; irregular triangle T(n,k), n>=3, 0<=k<=floor(n/3), read by rows.

Original entry on oeis.org

1, 2, 1, 2, 1, 4, 1, 4, 4, 1, 6, 9, 1, 6, 18, 1, 8, 28, 10, 1, 8, 42, 28, 1, 10, 57, 76, 1, 10, 76, 140, 25, 1, 12, 96, 254, 107, 1, 12, 120, 392, 321, 1, 14, 145, 600, 731, 70, 1, 14, 174, 840, 1462, 366, 1, 16, 204, 1170, 2610, 1308, 1, 16, 238, 1540, 4350, 3416, 196
Offset: 3

Views

Author

Keywords

Examples

			The first 11 rows of T(n,k) are:
.\ k    0      1      2      3      4
n
3       1      2
4       1      2
5       1      4
6       1      4      4
7       1      6      9
8       1      6     18
9       1      8     28     10
10      1      8     42     28
11      1     10     57     76
12      1     10     76    140     25
13      1     12     96    254    107
		

Crossrefs

Programs

  • Mathematica
    T[n_, k_] := ((3^k + 1)*Binomial[n - 2k, k] + Boole[EvenQ[k] || OddQ[n]]*(3^(Quotient[(k + 1), 2]) + 3^Quotient[k, 2]) Binomial[(n - 2k - Mod[n, 2])/2, Quotient[k, 2]])/4; Table[T[n, k], {n, 3, 20}, {k, 0, Floor[n/3]}] // Flatten (* Jean-François Alcover, Oct 06 2017, after Andrew Howroyd *)
  • PARI
    T(n,k)={((3^k+1)*binomial(n-2*k,k) + (k%2==0||n%2==1) * (3^((k+1)\2)+3^(k\2)) * binomial((n-2*k-(n%2))/2,k\2))/4}
    for(n=3,20,for(k=0,floor(n/3), print1(T(n,k), ", "));print) \\ Andrew Howroyd, May 29 2017

Extensions

Terms corrected and xrefs updated by Christopher Hunt Gribble, Apr 26 2015
Terms a(40) and beyond from Andrew Howroyd, May 29 2017

A231568 Number T(n,k) of equivalence classes of ways of placing k 4 X 4 tiles in an n X 5 rectangle under all symmetry operations of the rectangle; irregular triangle T(n,k), n>=4, 0<=k<=floor(n/4), read by rows.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 2, 1, 3, 4, 1, 4, 8, 1, 4, 12, 1, 5, 18, 3, 1, 5, 24, 8, 1, 6, 32, 22, 1, 6, 40, 40, 1, 7, 50, 73, 6, 1, 7, 60, 112, 22, 1, 8, 72, 172, 66, 1, 8, 84, 240, 146, 1, 9, 98, 335, 292, 10, 1, 9, 112, 440, 516, 48, 1, 10, 128, 578, 860, 174
Offset: 4

Views

Author

Keywords

Examples

			The first 14 rows of T(n,k) are:
.\  k    0      1      2      3     4
n
4        1      1
5        1      1
6        1      2
7        1      2
8        1      3      2
9        1      3      4
10       1      4      8
11       1      4     12
12       1      5     18      3
13       1      5     24      8
14       1      6     32     22
15       1      6     40     40
16       1      7     50     73     6
17       1      7     60    112    22
		

Crossrefs

Programs

  • Mathematica
    T[n_, k_] := (2^k Binomial[n - 3k, k] + (Boole[EvenQ[k]] + Boole[EvenQ[n] || EvenQ[k]] + Boole[k == 0]) 2^Quotient[k+1, 2] Binomial[(n - 3k - Mod[k, 2] - Mod[n, 2])/2, Quotient[k, 2]])/4; Table[T[n, k], {n, 4, 20}, {k, 0, Floor[n/4]}] // Flatten (* Jean-François Alcover, Oct 06 2017, after Andrew Howroyd *)
  • PARI
    T(n,k)={(2^k*binomial(n-3*k,k) + ((k%2==0)+(n%2==0||k%2==0)+(k==0)) * 2^((k+1)\2)*binomial((n-3*k-(k%2)-(n%2))/2,k\2))/4}
    for(n=2,20,for(k=0,floor(n/4), print1(T(n,k), ", "));print) \\ Andrew Howroyd, May 29 2017

Extensions

Terms extended and xrefs updated by Christopher Hunt Gribble, Apr 26 2015
Terms a(32) and beyond from Andrew Howroyd, May 29 2017

A232440 Number T(n,k) of equivalence classes of ways of placing k 5 X 5 tiles in an n X 5 rectangle under all symmetry operations of the rectangle; irregular triangle T(n,k), n>=5, 0<=k<=floor(n/5), read by rows.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 3, 1, 1, 4, 2, 1, 4, 4, 1, 5, 6, 1, 5, 9, 1, 6, 12, 1, 1, 6, 16, 2, 1, 7, 20, 6, 1, 7, 25, 10, 1, 8, 30, 19, 1, 8, 36, 28, 1, 1, 9, 42, 44, 3, 1, 9, 49, 60, 9, 1, 10, 56, 85, 19, 1, 10, 64, 110, 38, 1, 11, 72, 146, 66, 1
Offset: 5

Views

Author

Keywords

Examples

			The first 9 rows of T(n,k) are:
.\ k    0      1      2
n
5       1      1
6       1      1
7       1      2
8       1      2
9       1      3
10      1      3      1
11      1      4      2
12      1      4      4
13      1      5      6
		

Crossrefs

Programs

  • Mathematica
    T[n_, k_] := (Binomial[n - 4k, k] + Boole[EvenQ[k] || OddQ[n]] Binomial[(n - 4k - Mod[n, 2])/2, Quotient[k, 2]])/2; Table[T[n, k], {n, 5, 20}, {k, 0, Quotient[n, 5]}] // Flatten (* Jean-François Alcover, Oct 06 2017, after Andrew Howroyd *)
  • PARI
    T(n,k)={(binomial(n-4*k,k) + (k%2==0||n%2==1)*binomial((n-4*k-n%2)/2,k\2))/2}
    for(n=5,20,for(k=0,(n\5), print1(T(n,k), ", "));print) \\ Andrew Howroyd, May 29 2017

Extensions

Terms extended and xrefs updated by Christopher Hunt Gribble, Apr 26 2015
Terms a(27) and beyond from Andrew Howroyd, May 29 2017

A238189 Number T(n,k) of equivalence classes of ways of placing k 2 X 2 tiles in an n X 4 rectangle under all symmetry operations of the rectangle; irregular triangle T(n,k), n>=2, 0<=k<=n-n%2, read by rows.

Original entry on oeis.org

1, 2, 1, 1, 2, 2, 1, 4, 7, 3, 1, 1, 4, 13, 10, 4, 1, 6, 23, 33, 22, 6, 1, 1, 6, 34, 68, 72, 30, 6, 1, 8, 49, 139, 204, 145, 54, 8, 1, 1, 8, 65, 230, 467, 476, 269, 70, 9, 1, 10, 85, 377, 961, 1348, 1080, 472, 111, 12, 1, 1, 10, 106, 552, 1767, 3188, 3454, 2156
Offset: 2

Views

Author

Keywords

Examples

			The first 10 rows of T(n,k) are:
  k  0     1     2     3     4     5     6     7     8     9    10
n
2    1     2     1
3    1     2     2
4    1     4     7     3     1
5    1     4    13    10     4
6    1     6    23    33    22     6     1
7    1     6    34    68    72    30     6
8    1     8    49   139   204   145    54     8     1
9    1     8    65   230   467   476   269    70     9
10   1    10    85   377   961  1348  1080   472   111    12     1
11   1    10   106   552  1767  3188  3454  2156   779   140    12
		

Crossrefs

Extensions

Terms corrected and extended by Christopher Hunt Gribble, Apr 25 2015

A238190 Number T(n,k) of equivalence classes of ways of placing k 3 X 3 tiles in an n X 4 rectangle under all symmetry operations of the rectangle; irregular triangle T(n,k), n>=3, 0<=k<=floor(n/3), read by rows.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 2, 1, 3, 4, 1, 3, 8, 1, 4, 12, 3, 1, 4, 18, 8, 1, 5, 24, 22, 1, 5, 32, 40, 6, 1, 6, 40, 73, 22, 1, 6, 50, 112, 66, 1, 7, 60, 172, 146, 10, 1, 7, 72, 240, 292, 48, 1, 8, 84, 335, 516, 174, 1, 8, 98, 440, 860, 448, 20
Offset: 3

Views

Author

Keywords

Examples

			The first 13 rows of T(n,k) are:
.\ k    0     1     2     3     4     5
n
3       1     1
4       1     1
5       1     2
6       1     2     2
7       1     3     4
8       1     3     8
9       1     4    12     3
10      1     4    18     8
11      1     5    24    22
12      1     5    32    40     6
13      1     6    40    73    22
14      1     6    50   112    66
15      1     7    60   172   146    10
		

Crossrefs

Programs

  • Mathematica
    T[n_, k_] := (2^k Binomial[n - 2k, k] + (Boole[EvenQ[k]] + Boole[OddQ[n] || EvenQ[k]] + Boole[k == 0]) 2^Quotient[k + 1, 2] Binomial[(n - 2k - Mod[n, 2])/2, Quotient[k, 2]])/4; Table[T[n, k], {n, 3, 20}, {k, 0, Floor[n/3]}] // Flatten (* Jean-François Alcover, Oct 06 2017, after Andrew Howroyd *)
  • PARI
    T(n,k)={(2^k*binomial(n-2*k,k) + ((k%2==0)+(n%2==1||k%2==0)+(k==0)) * 2^((k+1)\2)*binomial((n-2*k-(n%2))/2,k\2))/4}
    for(n=2,20,for(k=0,floor(n/3), print1(T(n,k), ", "));print) \\ Andrew Howroyd, May 29 2017

Extensions

Link to C++ program and xrefs updated by Christopher Hunt Gribble, Apr 25 2015
Terms a(51) and beyond from Andrew Howroyd, May 29 2017
Showing 1-10 of 27 results. Next