# 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