A071333 Number of polyiamonds with n cells that do not tile the plane.
0, 0, 0, 0, 0, 0, 1, 0, 21, 107, 619, 1300, 6740, 19812, 61075, 181036, 577551, 1626183, 4904626, 14071461, 41336066, 120630534, 352200161, 1023454347, 2997105957, 8761810505, 25648786717, 75161609591, 220583137840, 647825855933
Offset: 1
References
- M. Gardner, Tiling with Polyominoes, Polyiamonds and Polyhexes. Chap. 14 in Time Travel and Other Mathematical Bewilderments. New York: W. H. Freeman, pp. 175-187, 1988.
Links
- Joseph Myers, Polyiamond tiling
Programs
-
Mathematica
A[s_Integer] := With[{s6 = StringPadLeft[ToString[s], 6, "0"]}, Cases[ Import["https://oeis.org/A" <> s6 <> "/b" <> s6 <> ".txt", "Table"], {, }][[All, 2]]]; A000577 = A@000577; A071332 = A@071332; a[n_] := A000577[[n]] - A071332[[n]]; a /@ Range[30] (* Jean-François Alcover, Feb 21 2020 *)
Extensions
More terms from Joseph Myers, Nov 11 2003
a(29) and a(30) from Joseph Myers, Nov 21 2010