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.

A163433 Number of different fixed (possibly) disconnected trominoes bounded tightly by an n X n square.

Original entry on oeis.org

0, 4, 22, 52, 94, 148, 214, 292, 382, 484, 598, 724, 862, 1012, 1174, 1348, 1534, 1732, 1942, 2164, 2398, 2644, 2902, 3172, 3454, 3748, 4054, 4372, 4702, 5044, 5398, 5764, 6142, 6532, 6934, 7348, 7774, 8212, 8662, 9124, 9598, 10084, 10582, 11092, 11614
Offset: 1

Views

Author

David Bevan, Jul 28 2009

Keywords

Comments

Except for the first term of 0, a(n) is the set of all integers k such that 6k+12 is a perfect square. - Gary Detlefs, Mar 01 2010
For n > 2, the surface area of a rectangular prism with sides n-2, n-1, and n. - J. M. Bergot, Sep 12 2011
Also the number of 4-cycles in the (n+2) X (n+2) knight graph. - Eric W. Weisstein, May 05 2017

Examples

			a(2)=4: the four rotations of the (connected) L tromino.

Links

Crossrefs

Cf. A162673, A163434, A163437.
Cf. A289181 (6-cycles in the n X n knight graph).

Programs

  • Maple
    A163433:=n->6*n^2 - 12*n + 4: 0,seq(A163433(n), n=2..100); # Wesley Ivan Hurt, May 05 2017
  • Mathematica
    CoefficientList[Series[(2*z*(z^3 - 5*z^2 - 2*z))/(z - 1)^3, {z, 0, 100}], z] (* Vladimir Joseph Stephan Orlovsky, Jul 17 2011 *)
Join[{0}, Table[6*n^2 - 12*n + 4, {n, 2, 50}]] (* G. C. Greubel, Dec 23 2016 *)
Join[{0}, LinearRecurrence[{3, -3, 1}, {4, 22, 52}, 50]] (* G. C. Greubel, Dec 23 2016 *)
Length /@ Table[FindCycle[KnightTourGraph[n + 2, n + 2], {4}, All], {n, 20}] (* Eric W. Weisstein, May 05 2017 *)
  • PARI
    concat([0], Vec(2*x^2*(x^2-5*x-2) / (x-1)^3 + O(x^50))) \\ G. C. Greubel, Dec 23 2016

Formula

a(n) = 6*n^2 - 12*n + 4, n > 1.
From Colin Barker, Sep 06 2013: (Start)
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 4.
G.f.: 2*x^2*(x^2-5*x-2) / (x-1)^3. (End)
a(n+1) = (n*i-1)^3 - (n*i+1)^3, where n > 0, i=sqrt(-1). - Bruno Berselli, Jan 23 2014
E.g.f.: 2*((3*x^2 - 3*x + 2)*exp(x) + x - 2). - G. C. Greubel, Dec 23 2016
From Amiram Eldar, Aug 20 2022: (Start)
Sum_{n>=2} 1/a(n) = 1/4 - cot(Pi/sqrt(3))*Pi/(4*sqrt(3)).
Sum_{n>=2} (-1)^n/a(n) = cosec(Pi/sqrt(3))*Pi/(4*sqrt(3)) - 1/4. (End)

A163437 Number of different fixed (possibly) disconnected polyominoes (of any area) bounded tightly by an n X n square.

Original entry on oeis.org

1, 7, 322, 51472, 29671936, 64588152832, 545697103347712, 18161310923858378752, 2399054119350722118025216, 1262710910458264839283982467072, 2653270028014955753823799266500411392
Offset: 1

Views

Author

David Bevan, Jul 28 2009

Keywords

Examples

			a(2)=7: 2 rotations of the strictly disconnected domino consisting of two squares connected at a vertex, 4 rotations of the L tromino, and the square tetromino.

Links

Crossrefs

Cf. A162677 (bound not necessarily tight), A163433 (fixed disconnected trominoes), A163434 (fixed disconnected tetrominoes), A163435 (fixed disconnected pentominoes), A163436 (fixed disconnected n-ominoes).

Programs

  • Mathematica
    Table[2^(n^2) - 4*2^((n - 1)*n) + 4*2^((n - 1)^2) + 2*2^((n - 2)*n) -
  4*2^((n - 2)*(n - 1)) + 2^((n - 2)^2), {n, 1, 25}] (* G. C. Greubel, Dec 23 2016 *)

Formula

a(n) = 2^(n^2) - 4*2^((n-1)*n) + 4*2^((n-1)^2) + 2*2^((n-2)*n) - 4*2^((n-2)*(n-1)) + 2^((n-2)^2).

A163435 Number of different fixed (possibly) disconnected pentominoes bounded tightly by an n X n square.

Original entry on oeis.org

0, 0, 102, 1792, 11550, 46848, 144550, 371712, 838782, 1715200, 3247398, 5779200, 9774622, 15843072, 24766950, 37531648, 55357950, 79736832, 112466662, 155692800, 211949598, 284204800, 375906342, 491031552, 634138750, 810421248
Offset: 1

Views

Author

David Bevan, Jul 28 2009

Keywords

Examples

			a(3) = 102: there are 102 rotations of the 19 free (possibly) disconnected pentominoes bounded tightly by a 3 X 3 square; these include the F, T, V, W, X and Z (connected) pentominoes and 13 strictly disconnected free pentominoes.

Links

Crossrefs

Cf. A162675, A163434, A163437.

Programs

  • Mathematica
    Join[{0}, Table[(2/3)*n^2*(n - 2)^2*(5*n^2 - 10*n + 2), {n, 2, 50}]] (* or *) Join[{0}, LinearRecurrence[{7,-21,35,-35,21,-7,1}, {0, 102, 1792, 11550, 46848, 144550, 371712}, 50]] (* G. C. Greubel, Dec 23 2016 *)
  • PARI
    concat([0,0], Vec(2*x^3*(51+539*x+574*x^2+30*x^3+7*x^4-x^5)/ (1-x)^7 + O(x^50))) \\ G. C. Greubel, Dec 23 2016

Formula

a(n) = 2/3*n^2*(n-2)^2*(5*n^2-10*n+2), n>1.
G.f.: 2*x^3*(51+539*x+574*x^2+30*x^3+7*x^4-x^5)/(1-x)^7. - Colin Barker, Apr 25 2012
E.g.f.: (2/3)*x*(5*x^5 + 45*x^4 + 87*x^3 + 24*x^2 + 3*x - 3)*exp(x) + 2*x. - G. C. Greubel, Dec 23 2016
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.