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 A168326 #21 Sep 08 2022 08:45:49 %S A168326 4,4,10,10,16,16,22,22,28,28,34,34,40,40,46,46,52,52,58,58,64,64,70, %T A168326 70,76,76,82,82,88,88,94,94,100,100,106,106,112,112,118,118,124,124, %U A168326 130,130,136,136,142,142,148,148,154,154,160,160,166,166,172,172,178,178 %N A168326 a(n) = (6*n - 3*(-1)^n - 1)/2. %H A168326 Vincenzo Librandi, <a href="/A168326/b168326.txt">Table of n, a(n) for n = 1..1000</a> %H A168326 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (1,1,-1). %F A168326 a(n) = 6*n - a(n-1) - 4, with n>1, a(1)=4. %F A168326 From _Vincenzo Librandi_, Sep 17 2013: (Start) %F A168326 G.f.: 2*x*(2 + x^2)/((1+x)*(1-x)^2). %F A168326 a(n) = 2*A168236(n) = A168300(n) - 1 = A168329(n) + 1 = A168301(n+1) - 3. %F A168326 a(n) = a(n-1) +a(n-2) -a(n-3). (End) %F A168326 E.g.f.: (1/2)*(-3 + 4*exp(x) + (6*x - 1)*exp(2*x))*exp(-x). - _G. C. Greubel_, Jul 18 2016 %t A168326 With[{c = 6 Range[0, 30] + 4}, Riffle[c, c]] (* or *) RecurrenceTable[ {a[1] == 4, a[n] == 6 n - a[n-1] - 4}, a, {n, 60}] (* _Harvey P. Dale_, Jun 12 2012 *) %t A168326 Table[3 n - 3 (-1)^n/2 - 1/2, {n, 70}] (* _Bruno Berselli_, Sep 17 2013 *) %t A168326 CoefficientList[Series[(4 + 2 x^2) / ((1 + x) (1 - x)^2), {x, 0, 70}], x] (* _Vincenzo Librandi_, Sep 17 2013 *) %o A168326 (Magma) [n eq 1 select n+3 else 6*n-Self(n-1)-4: n in [1..70]]; // _Vincenzo Librandi_, Sep 17 2013 %Y A168326 Cf. A016957, A168236. %K A168326 nonn,easy,less %O A168326 1,1 %A A168326 _Vincenzo Librandi_, Nov 23 2009 %E A168326 New definition by _Bruno Berselli_, Sep 17 2013