This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A026046 #27 Mar 12 2023 11:10:34
%S A026046 76,105,144,195,260,341,440,559,700,865,1056,1275,1524,1805,2120,2471,
%T A026046 2860,3289,3760,4275,4836,5445,6104,6815,7580,8401,9280,10219,11220,
%U A026046 12285,13416,14615,15884,17225,18640,20131,21700,23349,25080,26895,28796,30785,32864,35035,37300
%N A026046 a(n) = dot_product(1,2,...,n)*(6,7,...,n,1,2,3,4,5).
%H A026046 Vincenzo Librandi, <a href="/A026046/b026046.txt">Table of n, a(n) for n = 6..1000</a>
%H A026046 <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (4,-6,4,-1).
%F A026046 a(n) = n(n^2-6n+38)/3. - _Ralf Stephan_, Apr 30 2004
%F A026046 G.f.: x^6*(76-199*x+180*x^2-55*x^3)/(1-x)^4. - _Colin Barker_, Sep 17 2012
%t A026046 Table[n(n^2 - 6n + 38)/3, {n, 6, 100}] (* _Stefan Steinerberger_, Apr 14 2006 *)
%t A026046 CoefficientList[Series[(76 - 199 x + 180 x^2 - 55 x^3)/(1 - x)^4, {x, 0, 60}], x] (* _Vincenzo Librandi_, Oct 17 2013 *)
%t A026046 Table[Range[n].Join[Range[6,n],Range[5]],{n,6,50}] (* or *) LinearRecurrence[{4,-6,4,-1},{76,105,144,195},50] (* _Harvey P. Dale_, Mar 12 2023 *)
%o A026046 (Magma) [n*(n^2-6*n+38)/3: n in [6..60]]; // _Vincenzo Librandi_, Oct 17 2013
%Y A026046 Column 5 of triangle A094414.
%K A026046 nonn,easy
%O A026046 6,1
%A A026046 _Clark Kimberling_