|
%I #9 Mar 07 2024 08:50:55
%S 0,2,7,12,21,30,39,53,67,81,95,115,135,155,175,195,222,249,276,303,
%T 330,357,392,427,462,497,532,567,602,646,690,734,778,822,866,910,954,
%U 1008,1062,1116,1170,1224,1278,1332,1386,1440,1505,1570,1635,1700,1765,1830
%N First differences are 2, 5, 5, 9, 9, 9, 14, 14, 14, 14, ..., that is, A000096 with m-th term repeated m times (m>=1).
%D David Pagni, Building buildings with triangular numbers, AMATYC Review (vol. 27 no. 2 spring 2006, pp. 56-65).
%t a = 10; lst = {0}; s = 0; t = Flatten@ Table[ Table[n*(n + 3)/2, {n}], {n, a}]; Do[ AppendTo[lst, s = s + t[[n]]], {n, a(a+1)/2}]; lst (* _Robert G. Wilson v_, Jun 16 2006 *)
%Y Cf. A000096.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jun 13 2006
%E More terms from _Robert G. Wilson v_, Jun 16 2006
|
