# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a033544
Showing 1-1 of 1
%I A033544 #19 Sep 08 2022 08:44:51
%S A033544 0,27,210,822,2328,5433,11130,20748,36000,59031,92466,139458,203736,
%T A033544 289653,402234,547224,731136,961299,1245906,1594062,2015832,2522289,
%U A033544 3125562,3838884,4676640,5654415,6789042,8098650,9602712,11322093,13279098
%N A033544 Wiener number of n-hexagonal triangle.
%C A033544 Named after the American chemist and physician Harry Wiener (1924-1988). - _Amiram Eldar_, Jun 13 2021
%D A033544 Wai Chee Shiu, C. S. Tong and P. C. B. Lam, Wiener number of some polycyclic graphs, Graph Theory Notes of New York, Vol. 32, No. 2 (1997), pp. 10-15.
%H A033544 Vincenzo Librandi, Table of n, a(n) for n = 0..1000
%H A033544 Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).
%F A033544 a(n) = (1/10)*n*(n+1)*(4*n^3+36*n^2+79*n+16).
%F A033544 G.f.: 3*x*(2*x^3-11*x^2+16*x+9)/(x-1)^6. [_Colin Barker_, Oct 30 2012]
%t A033544 CoefficientList[Series[3 x (2 x^3 - 11 x^2 + 16 x + 9)/(x - 1)^6, {x, 0, 30}], x] (* _Vincenzo Librandi_, Oct 20 2013 *)
%o A033544 (Magma) [(1/10)*n*(n+1)*(4*n^3+36*n^2+79*n+16): n in [0..30]]; // _Vincenzo Librandi_, Oct 20 2013
%K A033544 nonn,easy
%O A033544 0,2
%A A033544 _N. J. A. Sloane_.
%E A033544 More terms from _Vincenzo Librandi_, Oct 20 2013
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE