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.

A049221 Number of horizontally convex n-ominoes in which the top row has exactly 1 square, which is not above the rightmost square in the second row.

This page as a plain text file.
%I A049221 #18 Nov 16 2015 05:55:25
%S A049221 1,0,1,4,14,46,148,474,1518,4864,15590,49974,160196,513522,1646134,
%T A049221 5276800,16915150,54222686,173814580,557174698,1786062174,5725346304,
%U A049221 18352995094,58831800038,188589419748,604536478850,1937883656166
%N A049221 Number of horizontally convex n-ominoes in which the top row has exactly 1 square, which is not above the rightmost square in the second row.
%H A049221 Dean Hickerson, <a href="http://www.cs.uwaterloo.ca/journals/JIS/HICK2/chcp.html">Counting Horizontally Convex Polyominoes</a>, J. Integer Sequences, Vol. 2 (1999), #99.1.8.
%H A049221 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (5,-7,4)
%F A049221 G.f.: x (1-x)^2 (1-3x+x^2)/(1-5x+7x^2-4x^3).
%F A049221 a(n) = 5a(n-1) - 7a(n-2) + 4a(n-3) for n >= 6.
%F A049221 a(n) = A049219(n-1) + A049222(n) for n >= 3.
%t A049221 a[ n_ ] := a[ n ]=If[ n<6, {1, 0, 1, 4, 14}[ [ n ] ], 5a[ n-1 ]-7a[ n-2 ]+4a[ n-3 ] ]
%t A049221 LinearRecurrence[{5,-7,4},{1,0,1,4,14},40] (* _Harvey P. Dale_, Nov 16 2015 *)
%Y A049221 Cf. A049219, A049222.
%K A049221 nonn,easy
%O A049221 1,4
%A A049221 _Dean Hickerson_, Aug 10 1999