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 A081251 #47 Dec 03 2024 15:10:51
%S A081251 2,6,20,60,182,546,1640,4920,14762,44286,132860,398580,1195742,
%T A081251 3587226,10761680,32285040,96855122,290565366,871696100,2615088300,
%U A081251 7845264902,23535794706,70607384120,211822152360,635466457082,1906399371246
%N A081251 Numbers n such that A081249(m)/m^2 has a local maximum for m = n.
%C A081251 The limit of the local maxima, lim A081249(n)/n^2 = 1/6. For local minima cf. A081250.
%C A081251 Also the number of different 4- and 3-colorings for the vertices of all triangulated planar polygons on a base with n+2 vertices, if the colors of the two base vertices are fixed. - _Patrick Labarque_, Mar 23 2010
%C A081251 From _Toby Gottfried_, Apr 18 2010: (Start)
%C A081251 a(n) = the number of ternary sequences of length n+1 where the numbers of (0's, 1's) are both odd.
%C A081251 A015518 covers the (odd, even) and (even, odd) cases, and A122983 covers (even, even). (End)
%H A081251 Vincenzo Librandi, <a href="/A081251/b081251.txt">Table of n, a(n) for n = 1..1000</a>
%H A081251 Klaus Brockhaus, <a href="/A081134/a081134.gif">Illustration for A081134, A081249, A081250 and A081251</a>
%H A081251 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (3,1,-3).
%F A081251 G.f.: 2/((1-x)*(1+x)*(1-3*x)).
%F A081251 a(n) = a(n-2) + 2*3^(n) for n > 1.
%F A081251 a(n+2) - a(n) = A008776(n).
%F A081251 a(n) = 2*A033113(n+1).
%F A081251 a(2*n+1) = A054880(n+1).
%F A081251 a(n) = floor(3^(n+1)/4). - _Mircea Merca_, Dec 26 2010
%F A081251 From _G. C. Greubel_, Jul 14 2019: (Start)
%F A081251 a(n) = (9*3^(n-1) -(-1)^n -2)/4.
%F A081251 E.g.f.: (3*exp(3*x) - 2*exp(x) - exp(-x))/4. (End)
%e A081251 6 is a term since A081249(5)/5^2 = 4/25 = 0.160, A081249(6)/6^2 = 7/36 = 0.194, A081249(7)/7^2 = 9/49 = 0.184.
%p A081251 seq(floor(3^(n+1)/4), n=1..30). # _Mircea Merca_, Dec 27 2010
%t A081251 a[n_]:= Floor[3^(n+1)/4]; Array[a, 30]
%t A081251 Table[(9*3^(n-1) -(-1)^n -2)/4, {n, 1, 30}] (* _G. C. Greubel_, Jul 14 2019 *)
%o A081251 (Magma) [Floor(3^(n+1)/4) : n in [1..30]]; // _Vincenzo Librandi_, Jun 25 2011
%o A081251 (PARI) vector(30, n, (9*3^(n-1) -(-1)^n -2)/4) \\ _G. C. Greubel_, Jul 14 2019
%o A081251 (Sage) [(9*3^(n-1) -(-1)^n -2)/4 for n in (1..30)] # _G. C. Greubel_, Jul 14 2019
%o A081251 (GAP) List([1..30], n-> (9*3^(n-1) -(-1)^n -2)/4); # _G. C. Greubel_, Jul 14 2019
%Y A081251 Cf. A008776, A033113, A054880, A081134, A081249, A081250.
%K A081251 nonn
%O A081251 1,1
%A A081251 _Klaus Brockhaus_, Mar 17 2003