cp's OEIS Frontend

A230549 Coins left after packing twin hearts patterns into n X n coins.

%I A230549 #16 Dec 18 2015 18:18:44
%S A230549 4,5,8,13,12,21,32,33,40,57,48,69,84,85,96,125,108,141,160,161,176,
%T A230549 217,192,237,260,261,280,333,300,357,384,385,408,473,432,501,532,533,
%U A230549 560,637,588,669,704,705,736,825,768,861
%N A230549 Coins left after packing twin hearts patterns into n X n coins.
%C A230549 Twin hearts (6c4a type) is one of total 17 distinct patterns appearing in 3X2 coins where each pattern consists of 6 perimeter parts from each coin and forms a continuous area.
%C A230549 a(n) is total coins left after packing twin hearts patterns (6c4a type: 6-curves cover 4 coins) into n X n coins with rotation not allowed. The total twin hearts patterns is A230548 and voids left is A230550. See illustration in links.
%H A230549 Kival Ngaokrajang, <a href="/A230549/a230549.pdf">Illustration of initial terms (U)</a>
%F A230549 a(n) = n^2 - 4*A230548(n).
%F A230549 G.f.: x^2 * (-3*x^10 - 4*x^8 + 3*x^7 + 8*x^6 + 4*x^5 - x^4 + 4*x^3 + 4*x^2 + 5*x + 4)/(1+x^3)*(1-x^3)^2*(1-x^2). (conjectured). - _Ralf Stephan_, Oct 30 2013
%o A230549 (Small Basic)
%o A230549  col = 1
%o A230549 row = 0
%o A230549 For n = 2 To 100
%o A230549   add = 0
%o A230549   If Math.Remainder(n,2) * Math.Remainder(n,3) <> 0 Then
%o A230549     add = 1
%o A230549   EndIf
%o A230549   If n >= 4 And Math.Remainder(n,2) = 0 Then
%o A230549     col = col + 1
%o A230549   EndIf
%o A230549   If n >= 3 And Math.Remainder(n,3) = 0 Then
%o A230549     row = row + 1
%o A230549   EndIf
%o A230549   U = n * n - (col * row + add)*4
%o A230549   TextWindow.Write(U+", ")
%o A230549 EndFor
%Y A230549 Cf. A008795, A230370 (3-curves); A074148, A227906, A229093, A229154 (4-curves); A001399, A230267, A230276 (5-curves); A229593, A228949, A229598, A002620 (6-curves).
%K A230549 nonn
%O A230549 2,1
%A A230549 _Kival Ngaokrajang_, Oct 23 2013