|
%I #17 Oct 24 2023 23:16:25
%S 1,4,1,2,8,11,12,3,12,4,16,13,14,11,14,15,24,6,7,10,16,8,5,8,18,18,18,
%T 10,22,19,20,26,20,12,21,21,22,25,13,14,11,14,15,15,15,25,19,16,17,5,
%U 17,18,18,18,19,22,19,11,26,20,21,21,21,22,25,13,23,20,23,24,24,24,25,10,16,26
%N Sum of digits of the n-th tetrahedral number.
%H Harvey P. Dale, <a href="/A004160/b004160.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A007953(A000292(n)). - _Michel Marcus_, Dec 19 2016
%t Total[IntegerDigits[#]]&/@Table[(n(n+1)(n+2))/6,{n,80}] (* _Harvey P. Dale_, Jul 31 2013 *)
%o (PARI) a(n)=sumdigits(n*(n+1)*(n+2)/6) \\ _Charles R Greathouse IV_, Dec 19 2016
%Y Cf. A000292, A007953.
%K nonn,base,easy
%O 1,2
%A _N. J. A. Sloane_
|
