|
%I #38 Dec 18 2021 13:30:08
%S 4,6,10,16,24,34,46,60,76,94,114,136,160,186,214,244,276,310,346,384,
%T 424,466,510,556,604,654,706,760,816,874,934,996,1060,1126,1194,1264,
%U 1336,1410,1486,1564,1644,1726,1810,1896,1984,2074,2166,2260
%N a(n) = n^2 + n + 4.
%H Muniru A Asiru, <a href="/A027689/b027689.txt">Table of n, a(n) for n = 0..2000</a>
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/quasimor.htm">Palindromic Quasi_Over_Squares of the form n^2+(n+X)</a>.
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (3,-3,1).
%F a(n) = A000217(n-2) + A000217(n+2) for n > 0. - _Jon Perry_, Jul 23 2003
%F a(n) = 2*n + a(n-1)-2 (with a(1)=4). - _Vincenzo Librandi_, Aug 05 2010
%F Sum_{n>=0} 1/a(n) = Pi*tanh(Pi*sqrt(15)/2)/sqrt(15). - _Amiram Eldar_, Jan 18 2021
%p with (combinat):seq(fibonacci(3, n)+n+3, n=0..47); # _Zerinvary Lajos_, Jun 07 2008
%t Table[n^2+n+4,{n,0,100}] (* _Vladimir Joseph Stephan Orlovsky_, Feb 17 2011 *)
%t LinearRecurrence[{3,-3,1},{4,6,10},50] (* or *) CoefficientList[ Series[ (-4+6*x-4*x^2)/(-1+x)^3,{x,0,50}],x] (* _Harvey P. Dale_, Dec 18 2021 *)
%o (PARI) a(n)=n^2+n+4 \\ _Charles R Greathouse IV_, Oct 07 2015
%o (GAP) List([0..50],n->n^2+n+4); # _Muniru A Asiru_, Jul 15 2018
%Y Cf. A000217, A002522.
%K nonn,easy
%O 0,1
%A _Patrick De Geest_
|
