登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A169908号 以10为基数的无进位数字根算法中a(n)=n*n。
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 (列表图表参考历史文本内部格式)
抵消
0,3
评论
加法和乘法与学校里的相同,即以10为基数,只是没有进位,当个别数字被加法或乘法时,结果被其数字根所取代(A010888美元).
链接
例子
14*14 = 187:
..14
..14
----
..47
.14.
----
.187
----
MAPLE公司
A010888美元:=进程(n)
如果n=0,则
0;
其他的
1+modp(n-1,9);
结束条件:;
结束进程:
进位Lmult1dig:=进程(a,b)
当地adigs、cdigs、d、len;
如果b<=9,则
施工支洞:=换算(a,基础,10);
长度:=nops(支洞);
cdigs:=[seq(A010888美元(b*op(d,adigs)),d=1..len)];
加(op(d,cdigs)*10^(d-1),d=1..len);
其他的
错误b,“不小于10”;
结束条件:;
结束进程:
carryLmult:=进程(a,b)
局部adigs、bdigs、c、len;
adigs:=转换(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;
结束进程:
A169908号:=进程(n)
携带Lmult(n,n);
结束进程:#R.J.马塔尔2013年7月12日
交叉参考
囊性纤维变性。A010888美元,A169821号.
关键词
非n,基础
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月19日07:35。包含371782个序列。(在oeis4上运行。)