Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #17 Dec 18 2015 18:18:43
%S 0,1,2,3,6,7,8,12,15,16,24,25,28,35,40,41,54,55,60,70,77,78,96,97,104,
%T 117,126,127,150,151,160,176,187,188,216,217,228,247,260,261,294,295,
%U 308,330,345,346,384,385,400,425,442
%N Twin hearts patterns packing into n X n coins.
%C 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 a(n) is the number of total twin hearts patterns (6c4a type: 6-curves cover 4 coins) packing into n X n coins with rotation not allowed. The total coins left after packing twin hearts patterns into n X n coins is A230549 and voids left is A230550. See illustration in links.
%H Kival Ngaokrajang, <a href="/A230548/a230548.pdf">Illustration of initial terms (T)</a>
%F G.f.: x^2 * (x^10 + x^8 + 2*x^5 + 3*x^4 + 2*x^3 + 2*x^2 + x)/((1+x^3) * (1-x^3)^2 * (1-x^2)) (conjectured). - _Ralf Stephan_, Oct 30 2013
%o (Small Basic)
%o col = 1
%o row = 0
%o For n = 2 To 100
%o add = 0
%o If Math.Remainder(n,2) * Math.Remainder(n,3) <> 0 Then
%o add = 1
%o EndIf
%o If n >= 4 And Math.Remainder(n,2) = 0 Then
%o col = col + 1
%o EndIf
%o If n >= 3 And Math.Remainder(n,3) = 0 Then
%o row = row + 1
%o EndIf
%o T = col * row + add
%o TextWindow.Write(T+", ")
%o EndFor
%Y Cf. A008795, A230370 (3-curves); A074148, A227906, A229093, A229154 (4-curves); A001399, A230267, A230276 (5-curves); A229593, A228949, A229598, A002620 (6-curves).
%K nonn
%O 2,3
%A _Kival Ngaokrajang_, Oct 23 2013