%我
%S 0,0,0,0,0,0,0,9,9,0,9,9,18,0,9,9,9,18,27,0,9,18,18,27,36,0,
%T 9,18,27,36,36,45,54,0,9,18,27,36,45,54,63,72,0,0,0,0,0,0,0,0,0,0,0,0,
%U 0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,18,0,0,0
%N三角形T(N,k)=A007953(N)*A007953(k)-A007953(N*k),其中1<=k<=N。
%c9除掉所有的项,这表示乘法的“抛出9”同余。
%H Indranil Ghosh,<a href=“/A229758/b229758.txt”>第1..120行三角形,扁平</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/CastingOutNines.html”>抛出9</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/DigitSum.html”>数字和</a>
%H维基百科,<a href=“http://en.Wikipedia.org/wiki/Digit_sum”>数字总和</a>
%e自2017年2月14日Indranil Ghosh_(开始)
%e表:
%0分1秒,
%e 2:0,0,
%e 3:0,0,0,
%e 4:0,0,9,9,
%e 5:0,9,9,18,18,
%e 6:0,9,9,18,27,27,
%e 7:0,9,18,18,27,36,36,
%e 8:0,9,18,27,36,36,45,54,
%e 9:0,9,18,27,36,45,54,63,72,
%e 10:0,0,0,0,0,0,0,0,0,
%e 11:0,0,0,0,0,0,0,0,0,0,
%e 12:0,0,0,0,9,9,9,9,18,0,0,0,
%e。。。
%e T(12,5)=A007953(12)*A007953(5)-A007953(12*5)=3*5-6=15-6=9。(结束)
%t dSum[n_u]:=总计[IntegerDigits[n]];展平[Table[dSum[n]*dSum[k]-dSum[n*k],{n,12},{k,n}]](*\t.D.Noe_2013年10月1日*)
%Y比照A007953。
%基极,表
%O 1,9
%2013年9月28日
|