MATHEMATICA
Table[n Total[IntegerDigits[n-1]], {n, 75}] (* From _Harvey P. Dale, _, Mar 14 2011 *)
Table[n Total[IntegerDigits[n-1]], {n, 75}] (* From _Harvey P. Dale, _, Mar 14 2011 *)
_Claudio L Meller (claudiomeller(AT)gmail.com), _, May 30 2009
proposed
approved
Table[n Total[IntegerDigits[n-1]], {n, 75}] (* From Harvey P. Dale, Mar 14 2011 *)
approved
proposed
a(n)= n * digital sum(n-1)
0, 2, 6, 12, 20, 30, 42, 56, 72, 90, 11, 24, 39, 56, 75, 96, 119, 144, 171, 200, 42, 66, 92, 120, 150, 182, 216, 252, 290, 330, 93, 128, 165, 204, 245, 288, 333, 380, 429, 480, 164, 210, 258, 308, 360, 414, 470, 528, 588, 650, 255, 312, 371, 432, 495, 560, 627, 696
1,2
a(8)=8xds(7)=8x7=56; a(15)=15xds(14)=15X5=75; a(26)=26xds(25)=26x7=182
nonn,base
Claudio L Meller (claudiomeller(AT)gmail.com), May 30 2009
approved