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.
%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