A336225 Table read by antidiagonals: T(n, k) = digitsum(n*k) with n >= 0 and k >= 0.
0, 0, 0, 0, 1, 0, 0, 2, 2, 0, 0, 3, 4, 3, 0, 0, 4, 6, 6, 4, 0, 0, 5, 8, 9, 8, 5, 0, 0, 6, 1, 3, 3, 1, 6, 0, 0, 7, 3, 6, 7, 6, 3, 7, 0, 0, 8, 5, 9, 2, 2, 9, 5, 8, 0, 0, 9, 7, 3, 6, 7, 6, 3, 7, 9, 0, 0, 1, 9, 6, 10, 3, 3, 10, 6, 9, 1, 0, 0, 2, 2, 9, 5, 8, 9, 8, 5, 9, 2, 2, 0
Offset: 0
Examples
The table T(n, k) begins 0 0 0 0 0 0 0 0 ... 0 1 2 3 4 5 6 7 ... 0 2 4 6 8 1 3 5 ... 0 3 6 9 3 6 9 3 ... 0 4 8 3 7 2 6 10 ... 0 5 1 6 2 7 3 8 ... 0 6 3 9 6 3 9 6 ... 0 7 5 3 10 8 6 13 ... ...
Crossrefs
Programs
-
Mathematica
T[n_,k_]:=Total[IntegerDigits[n*k]]; Table[T[n-k,k],{n,0,12},{k,0,n}]//Flatten
-
PARI
T(n, k) = sumdigits(n*k);