|
|
A169938
|
|
a(n) = n*(n+1)*(n*(n+1)+1).
|
|
7
|
|
|
0, 0, 6, 42, 156, 420, 930, 1806, 3192, 5256, 8190, 12210, 17556, 24492, 33306, 44310, 57840, 74256, 93942, 117306, 144780, 176820, 213906, 256542, 305256, 360600, 423150, 493506, 572292, 660156, 757770, 865830, 985056, 1116192, 1260006, 1417290, 1588860
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
-1,3
|
|
COMMENTS
|
|
|
LINKS
|
Nathan Kaplan, Susie Kimport, Rachel Lawrence, Luke Peilen, and Max Weinreich, Counting arcs in projective planes via Glynn’s algorithm, J. Geom. 108, No. 3 (2017), 1013-1029, Th. 1.4, C_2.
|
|
FORMULA
|
a(n+1) = a(n) + 2*(n+1)*(2*(n+1)^2+1). - Robert Munafo, Jul 27 2010
G.f.: 6*x*(1 + 2*x + x^2)/(1-x)^5. - Vincenzo Librandi, Dec 18 2012, corrected Aug 29 2022
a(n) = 5*a(n-1)-10*a(n-2)+10*a(n-3)-5*a(n-4)+a(n-5). - Wesley Ivan Hurt, Jan 25 2022
Sum_{n>=1} 1/a(n) = 2 - tanh(sqrt(3)*Pi/2)*Pi/sqrt(3). - Amiram Eldar, Sep 22 2022
|
|
MAPLE
|
n*(n+1)*(n*(n+1)+1);
end proc:
|
|
MATHEMATICA
|
CoefficientList[Series[6*x^2(1 + 2*x + x^2)/(1-x)^5, {x, 0, 40}], x] (* Vincenzo Librandi, Dec 18 2012 *)
LinearRecurrence[{5, -10, 10, -5, 1}, {0, 0, 6, 42, 156}, 40] (* Harvey P. Dale, Oct 14 2023 *)
|
|
PROG
|
(PARI) a(n) = n + 2*n^2 + 2*n^3 + n^4; \\ Altug Alkan, Feb 10 2017
(Python)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|