|
%I #11 Jul 21 2023 01:58:00
%S 2,5,9,14,20,27,37,49,63,79,97,117,139,163,189,219,252,288,327,369,
%T 414,462,513,567,624,684,747,815,887,963,1043,1127,1215,1307,1403,
%U 1503,1607,1715,1827,1943,2063,2187,2317,2452,2592,2737,2887,3042,3202,3367,3537
%N Partial sums of A032378.
%H G. C. Greubel, <a href="/A112873/b112873.txt">Table of n, a(n) for n = 1..10000</a>
%t Accumulate[Select[Range[300],!IntegerQ[Surd[#,3]]&&Divisible[#,Floor[ Surd[ #,3]]]&]] (* _Harvey P. Dale_, May 13 2020 *)
%o (Magma)
%o A032378:=[k*j: j in [(k^2+1)..(k^2+3*k+3)], k in [1..15]];
%o [(&+[A032378[j]: j in [1..n]]): n in [1..100]]; // _G. C. Greubel_, Jul 20 2023
%o (SageMath)
%o A032378=flatten([[k*j for j in range((k^2+1),(k^2+3*k+3)+1)] for k in range(1,15)])
%o def A112873(n): return sum(A032378[j] for j in range(n+1))
%o [A112873(n) for n in range(101)] # _G. C. Greubel_, Jul 20 2023
%Y Cf. A032378, A066353, A120721.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Oct 29 2006
|
