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 A164579 #19 Apr 11 2024 10:11:03
%S A164579 6,56,81,198,480,578,950,1656,1875,2646,3968,4356,5670,7800,8405,
%T A164579 10406,13536,14406,17238,21560,22743,26550,32256,33800,38726,46008,
%U A164579 47961,54150,63200,65610,73206,84216,87131,96278,109440,112908,123750,139256
%N A164579 Integer averages of halves of first cubes of natural numbers (n^3)/2 for some n.
%C A164579 Also, integers of the form (1/8)*n*(n+1)^2 for some n. - _Zak Seidov_, Aug 17 2009
%H A164579 <a href="/index/Rec#order_10">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,3,-3,0,-3,3,0,1,-1).
%F A164579 G.f.: ( x*(6+50*x+25*x^2+99*x^3+132*x^4+23*x^5+39*x^6+10*x^7) ) / ( (1+x+x^2)^3*(x-1)^4 ). - _R. J. Mathar_, Jan 25 2011
%e A164579 1/2, 9/4, 6, 25/2, 45/2, 147/4, 56, 81, ...
%t A164579 s=0;lst={};Do[a=(s+=(n^3)/2)/n;If[Mod[a,1]==0,AppendTo[lst,a]],{n,3*5!}];lst
%t A164579 LinearRecurrence[{1,0,3,-3,0,-3,3,0,1,-1},{6,56,81,198,480,578,950,1656,1875,2646},40] (* _Harvey P. Dale_, Jul 26 2017 *)
%t A164579 Module[{nn=200,ac},ac=Accumulate[Range[nn]^3/2];Select[#[[1]]/#[[2]]&/@ Thread[{ac,Range[nn]}],IntegerQ]] (* _Harvey P. Dale_, Jan 28 2020 *)
%o A164579 (PARI) forstep(n=3, 150, [4,1,3], print1(n*(n+1)^2>>3, ", ")); \\ _Charles R Greathouse IV_, Nov 02 2009
%Y A164579 Cf. A050248, A051456, A078617, A078618, A136116, A154293, A164576, A164577, A164578
%K A164579 nonn,easy
%O A164579 1,1
%A A164579 _Vladimir Joseph Stephan Orlovsky_, Aug 16 2009