A036357 Erroneous version of A000104.
1, 1, 1, 2, 5, 12, 35, 107, 363, 1248, 4271
Offset: 0
Keywords
Links
- R. C. Read, Contributions to the cell growth problem, Canad. J. Math., 14 (1962), 1-20.
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.
a(0) = 1 as there is 1 empty polyomino with #cells = 0. - _Fred Lunnon_, Jun 24 2020
(* In this program by Jaime Rangel-Mondragón, polyominoes are represented as a list of Gaussian integers. *) polyominoQ[p_List] := And @@ ((IntegerQ[Re[#]] && IntegerQ[Im[#]])& /@ p); rot[p_?polyominoQ] := I*p; ref[p_?polyominoQ] := (# - 2 Re[#])& /@ p; cyclic[p_] := Module[{i = p, ans = {p}}, While[(i = rot[i]) != p, AppendTo[ans, i]]; ans]; dihedral[p_?polyominoQ] := Flatten[{#, ref[#]}& /@ cyclic[p], 1]; canonical[p_?polyominoQ] := Union[(# - (Min[Re[p]] + Min[Im[p]]*I))& /@ p]; allPieces[p_] := Union[canonical /@ dihedral[p]]; polyominoes[1] = {{0}}; polyominoes[n_] := polyominoes[n] = Module[{f, fig, ans = {}}, fig = ((f = #1; ({f, #1 + 1, f, #1 + I, f, #1 - 1, f, #1 - I}&) /@ f)&) /@ polyominoes[n - 1]; fig = Partition[Flatten[fig], n]; f = Select[Union[canonical /@ fig], Length[#1] == n &]; While[f != {}, ans = {ans, First[f]}; f = Complement[f, allPieces[First[f]]]]; Partition[Flatten[ans], n]]; a[n_] := a[n] = Length[ polyominoes[n]]; Table[Print["a(", n, ") = ", a[n]]; a[n], {n, 1, 12}] (* Jean-François Alcover, Mar 24 2015, after Jaime Rangel-Mondragón *)
A[s_] := With[{s6 = StringPadLeft[ToString[s], 6, "0"]}, Cases[ Import[ "https://oeis.org/A" <> s6 <> "/b" <> s6 <> ".txt", "Table"], {, }][[All, 2]]]; A000104 = A@104; A000105 = A@105; a[n_] := A000105[[n + 1]] - A000104[[n + 1]]; a /@ Range[40] (* Jean-François Alcover, Jan 04 2020, updated Apr 21 2024 after John Mason's b-file *)
a(3)=24 because there are 24 polyiamonds consisting of 7 triangles and a(4)=108 because there are 108 polyominoes consisting of 7 squares.
The cells with value 1 show the smallest possible lake in this 4 X 4 square: 1 1 1 1 0 0 0 1 0 0 0 1 0 0 0 1 a(3)=24 = 6+7+7+3+1: There fit 6 5-ominoes in a 3x3 square, 7 6-ominoes in a 3x3 square, 7 7-ominoes in a 3x3 square, 3 8-ominoes in a 3x3 square, a 1 9-omino in a 3x3 square. - _R. J. Mathar_, Jun 07 2020
a(3)=66 because there are 66 polyiamonds consisting of 8 triangles and a(4)=369 because there are 369 polyominoes consisting of 8 squares.
a(3)=448 because there are 448 polyiamonds consisting of 10 triangles; a(4)=4655 because there are 4655 polyominoes consisting of 10 squares.
Comments