



0, 73, 292, 657, 1168, 1825, 2628, 3577, 4672, 5913, 7300, 8833, 10512, 12337, 14308, 16425, 18688, 21097, 23652, 26353, 29200, 32193, 35332, 38617, 42048, 45625, 49348, 53217, 57232, 61393, 65700, 70153, 74752, 79497, 84388, 89425, 94608
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,3,1).


FORMULA

a(n) = (37*n)^2(36*n)^2.
G.f.: 73*x*(1 + x)/(1  x)^3.  Vincenzo Librandi, Aug 21 2014
a(n) = 3*a(n1)3*a(n2)+a(n3) for n>2.


MATHEMATICA

Table[73 n^2, {n, 0, 40}] (* or *) CoefficientList[Series[73 x (1 + x)/(1  x)^3, {x, 0, 40}], x] (* Vincenzo Librandi, Aug 21 2014 *)


PROG

(MAGMA) [73*n^2: n in [0..50]];
(MAGMA) I:=[0, 73, 292]; [n le 3 select I[n] else 3*Self(n1)3*Self(n2)+Self(n3): n in [1..40]]; // Vincenzo Librandi, Aug 21 2014
(PARI) a(n)=73*n^2 \\ Charles R Greathouse IV, Jun 17 2017


CROSSREFS

Sequence in context: A033244 A140857 A158740 * A142614 A158744 A297430
Adjacent sequences: A174331 A174332 A174333 * A174335 A174336 A174337


KEYWORD

nonn,easy


AUTHOR

Vincenzo Librandi, Mar 16 2010


EXTENSIONS

Comment rewritten as formula by Bruno Berselli, Jul 12 2012


STATUS

approved



