显示找到的2个结果中的1-2个。
第页1
0, 1, 4, 0, 7, 7, 0, 4, 1, 81, 100, 121, 135, 160, 97, 108, 130, 145, 324, 361, 400, 351, 394, 349, 378, 337, 370, 0, 55, 31, 0, 61, 34, 0, 58, 28, 567, 640, 634, 621, 619, 610, 594, 589, 577, 567, 577, 589, 594, 610, 619, 621, 634, 640, 0, 28, 58, 0, 34, 61, 0, 31, 55, 324, 370
黄体脂酮素
(PARI)a(n)=来自数字(Vec(Pol(数字(n,9))^2)%9,9)\\满山圣一2023年3月9日
以10为基数的无进位数字根算法中a(n)=n*n。
+10 三
0, 1, 4, 9, 7, 7, 9, 4, 1, 9, 100, 121, 144, 169, 187, 117, 139, 154, 171, 199, 400, 441, 484, 439, 477, 427, 469, 414, 451, 499, 900, 961, 934, 999, 967, 937, 999, 964, 931, 999, 700, 781, 774, 769, 757, 747, 739, 724, 711, 799, 700, 711, 724, 739, 747, 757
评论
加法和乘法与学校里的相同,即以10为基数,只是没有进位,当个别数字被加法或乘法时,结果被其数字根所取代(A010888型).
例子
14*14 = 187:
..14
..14
----
..47
.14.
----
.187
----
MAPLE公司
如果n=0,则
0;
其他的
1+modp(n-1,9);
结束条件:;
结束进程:
进位Lmult1dig:=进程(a,b)
当地adigs、cdigs、d、len;
如果b<=9,则
施工支洞:=换算(a,基础,10);
len:=nops(adigs);
cdigs:=[seq(A010888型(b*op(d,adigs)),d=1..len)];
加(op(d,cdigs)*10^(d-1),d=1..len);
其他的
错误b,“不小于10”;
结束条件:;
结束进程:
进位乘数:=进程(a,b)
本地adigs、bdigs、c、len;
施工支洞:=换算(a,基础,10);
bdigs:=转换(b,基数,10);
长度:=最大值(nops(adigs),nops(bdigs));
c:=0;
对于i从1到nops(bdigs)do
carryLmult1dig(a,op(i,bdigs));
c:=提货单(c,%*10^(i-1));
结束do:
c;
结束进程:
携带Lmult(n,n);
搜索在0.007秒内完成
|