|
%I #6 Jul 15 2017 12:24:21
%S 0,2,10,30,68,130,222,350,520,738,2,4,12,32,70,132,224,352,522,740,10,
%T 12,20,40,78,140,232,360,530,748,30,32,40,60,98,160,252,380,550,768,
%U 68,70,78,98,136,198,290,418,588,806,130,132,140,160,198,260,352,480,650
%N Sum of digits of n plus sum of cubes of digits of n.
%H Harvey P. Dale, <a href="/A065137/b065137.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A007953(n)+A055012(n)
%e a(23) = (2+3)+(2^3+3^3) = 40.
%t Table[Total[IntegerDigits[n]]+Total[IntegerDigits[n]^3],{n,0,60}] (* _Harvey P. Dale_, Jul 15 2017 *)
%Y Cf. A065138.
%K base,easy,nonn
%O 0,2
%A _Henry Bottomley_, Oct 15 2001
|
