显示找到的16个结果中的1-10个。
3, 5, 7, 13, 31, 37, 43, 67, 73, 79, 97, 103, 113, 127, 139, 157, 163, 173, 181, 191, 199, 223, 227, 229, 233, 251, 257, 271, 281, 283, 313, 337, 349, 353, 359, 367, 383, 409, 419, 433, 449, 457, 463, 467, 479, 491, 523, 541, 547, 563, 569, 587, 601, 619, 631
MAPLE公司
五十: =地图(t->-t mod 10,转换(n,基数,10));
加(L[i]*10^(i-1),i=1..nops(L))
结束进程:
滤波器:=t->isprime(t)和isprime(A055120型(t) ):
选择(过滤器,[seq(i,i=3..1000,2)])#罗伯特·伊斯雷尔,2018年6月29日
数学
b=删除[Union[Table[If[PrimeQ[a[[n]]]==True,a[[n]],0],{n,1,Dimensions[a][[1]]}]],1]
0, 2, 1, 6, 8, 7, 3, 5, 4, 18, 20, 19, 24, 26, 25, 21, 23, 22, 9, 11, 10, 15, 17, 16, 12, 14, 13, 54, 56, 55, 60, 62, 61, 57, 59, 58, 72, 74, 73, 78, 80, 79, 75, 77, 76, 63, 65, 64, 69, 71, 70, 66, 68, 67, 27, 29, 28, 33, 35, 34, 30, 32, 31, 45, 47, 46, 51
配方奶粉
Tersum m+n:以3为基数写m和n,加上不带进位的mod 3,例如5+8=“21”+“22”=“10”=1。
a(3*n)=3*a(n),a(3*1)=3*1(n)+2,a(3*n+2)=3*a(n)+1-罗伯特·伊斯雷尔2014年5月9日
MAPLE公司
a: =proc(n)局部t,r,i;
t、 r:=n,0;
当t>0时,i从0开始
r: =r+3^i*irem(2*irem)(t,3,'t'),3)
od;第页
结束时间:
黄体脂酮素
(哈斯克尔)
a004488 0=0
a004488 n=如果d==0,则3*a004488n'其他3*a04488n'+3-d
其中(n',d)=divMod n 3
(PARI)a(n)=我的(b=3);fromdigits(应用(d->(b-d)%b,数字(n,b)),b);
(Python)
从sympy.theory.factor导入数字
定义a(n):返回int(“”.join([str((3-i)%3)for i in digits(n,3)[1:]]),3)#因德拉尼尔·戈什,2017年6月6日
交叉参考
囊性纤维变性。A048647号,A055115号,A055116号,A055120型,A059249号,A117966号,A117967号,A117968号,A225901型,A242399号,A244042型,A263273号,A289813型,1998年2月14日,A289815型,A289816型,A289831型,A289838号,A300222型,A321464飞机.
n的9补码:a(n)=10^d-1-n,其中d是n中的位数。如果a是n中一个数字,则用9-a替换。
+10 27
9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28
评论
如果n可以被3整除,那么a(n)也是。同样的道理也适用于9-阿隆索·德尔·阿特2011年12月1日
参考文献
Kjartan Poskitt,《谋杀数学:数字,宇宙的钥匙》,学术有限公司,2002年。见第159页。
配方奶粉
a(n)=如果n<10,则9-n其他10*a([n/10])+9-n mod 10-莱因哈德·祖姆凯勒2010年1月20日
例子
a(7)=2=10-1-7。a(123)=1000-1-123=876。
数学
九位数[n_]:=起始位数[Table[9,{Length[Integer Digits[n]]}]-整数位数[n]];表[nineComplement[n],{n,0,71}](*阿隆索·德尔·阿特2011年11月30日*)
黄体脂酮素
(PARI)g(n)=(x=0,n,ln=长度(Str(x));y=10^ln-1-x;打印1(y“,”)\\西诺·希利亚德2006年3月11日
(PARI)对于(n=0,1000,ln=长度(Str(n));写入(“b061601.txt”,n,“”,10^ln-1-n)\\哈里·史密斯2009年7月25日
(哈斯克尔)
a061601 n=如果n<=9,则9-n其他10*ad n’+9-d
其中(n',d)=divMod n 10
(Python)
返回10**len(str(n))-1-n#因德拉尼尔·戈什2017年1月30日
A(n,k)是n的基k补码;方阵A(n,k),n>=0,k>=2,由反对偶读取。
+10 15
0, 0, 1, 0, 2, 2, 0, 3, 1, 3, 0, 4, 2, 6, 4, 0, 5, 3, 1, 8, 5, 0, 6, 4, 2, 12, 7, 6, 0, 7, 5, 3, 1, 15, 3, 7, 0, 8, 6, 4, 2, 20, 14, 5, 8, 0, 9, 7, 5, 3, 1, 24, 13, 4, 9, 0, 10, 8, 6, 4, 2, 30, 23, 8, 18, 10, 0, 11, 9, 7, 5, 3, 1, 35, 22, 11, 20, 11, 0, 12, 10, 8, 6, 4, 2, 42, 34, 21, 10, 19, 12
例子
方阵A(n,k)开始:
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, ...
2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, ...
3, 6, 1, 2, 3, 4, 5, 6, 7, 8, 9, ...
4, 8, 12, 1, 2, 3, 4, 5, 6, 7, 8, ...
5, 7, 15, 20, 1, 2, 3, 4, 5, 6, 7, ...
6, 3, 14, 24, 30, 1, 2, 3, 4, 5, 6, ...
7, 5, 13, 23, 35, 42, 1, 2, 3, 4, 5, ...
8, 4, 8, 22, 34, 48, 56, 1, 2, 3, 4, ...
9, 18, 11, 21, 33, 47, 63, 72, 1, 2, 3, ...
10, 20, 10, 15, 32, 46, 62, 80, 90, 1, 2, ...
MAPLE公司
A: =proc(n,k)局部t,r,i;t、 r:=n,0;
当t>0时,i从0开始
r: =r+k^i*irem(k-irem(t,k,'t'),k)
od;第页
结束时间:
seq(seq(A(n,2+d-n),n=0..d),d=0..14);
交叉参考
k=2-16列给出:A001477号,A004488号,A048647号,A055115号,A055116号,A055117号,A055118号,A055119号,A055120型,A055121号,A055122号,A055123号,A055124号,A055125号,A055126号.
无载体产品表i*j,i>=0,j>=0(按反对偶法读取)。
+10 7
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, 0, 2, 2, 0, 6, 0, 0, 7, 2, 5, 6, 5, 2, 7, 0, 0, 8, 4, 8, 0, 0, 8, 4, 8, 0, 0, 9, 6, 1, 4, 5, 4, 1, 6, 9, 0, 0, 10, 8, 4, 8, 0, 0, 8, 4, 8, 10, 0, 0, 11, 20, 7, 2, 5, 6, 5, 2, 7, 20, 11, 0
例子
表格开始:
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ...
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 ...
0, 2, 4, 6, 8, 0, 2, 4, 6, 8, 20, 22, 24, 26, 28, 20 ...
0, 3, 6, 9, 2, 5, 8, 1, 4, 7, 30, 33, 36, 39, 32, 35 ...
0, 4, 8, 2, 6, 0, 4, 8, 2, 6, 40, 44, 48, 42, 46, 40 ...
...
T(12,97)=954,因为我们有12 X 97=900的无进位和,(180 mod 100=)80,70和(14 mod 10=)4=954。
数学
len[num_]:=长度[IntegerDigits[num]];数字[num_,d_]:=部分[IntegerDigits[num],d];T[i_,j_]:=FromDigits[Reverse[CoefficientList[PolynomialMod[Sum[digit[i,c]*x^(len[i]-c),{c,len[i]}]*Sum[digit[j,r]*xqu(len[j]-r),},10],x]];扁平[表[T[i-j,j],{i,0,12},{j,0,i}]](*斯特凡诺·斯佩齐亚2022年9月26日*)
黄体脂酮素
(PARI)T(n,k)=来自数字(lift(Vec(Mod(Pol(digits(n),10)*Pol(degits(k))))\\凯文·莱德2022年9月27日
0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 110, 121, 132, 143, 154, 165, 176, 187, 198, 109, 220, 231, 242, 253, 264, 275, 286, 297, 208, 219, 330, 341, 352, 363, 374, 385, 396, 307, 318, 329, 440, 451, 462, 473, 484, 495, 406, 417, 428, 439, 550, 561, 572, 583
例子
a(19)=109,因为我们有11 X 19=100、90、10和9的无进位和=109
黄体脂酮素
(哈斯克尔)
a059632 n=折叠(\v d->10*v+d)0$
map(flip mod 10)$zipWith(+)([0]++ds)(ds++[0])
其中ds=地图(read.return)$show n
0, 12, 24, 36, 48, 50, 62, 74, 86, 98, 120, 132, 144, 156, 168, 170, 182, 194, 106, 118, 240, 252, 264, 276, 288, 290, 202, 214, 226, 238, 360, 372, 384, 396, 308, 310, 322, 334, 346, 358, 480, 492, 404, 416, 428, 430, 442, 454, 466, 478, 500, 512, 524, 536
例子
a(97)=954,因为我们有12 X 97=900、80、70和4的无进位和=954
3, 7, 17, 29, 71, 83, 281, 719, 983, 997, 1637, 2309, 3701, 4493, 5507, 6299, 7691, 8363, 9161, 9803, 11003, 13163, 17117, 18371, 20807, 31181, 31793, 32693, 32843, 33617, 33893, 34211, 34673, 37277, 38453, 49409, 50591, 61547, 62723, 65327
例子
串联前删除前导零:997位于此处,因为997位于A083989号(9973是质数),其10补码3也在A083989号(37是质数)。与17和83的例子不同,在9显示为最高有效数字的情况下,10补码不是一对一的关系。
17和83都是成员,互为10的补充。
MAPLE公司
A055120型:=proc(n)局部挖掘;数字:=ilog10(n)+1;10^digs-n;结束:isA083989:=proc(n)本地comp,ccat;如果是质数(n),则比较:=A055120型(n) ;ccat:=n*10^(ilog10(comp)+1)+comp;返回(isprime(ccat));否则为假;fi;结束:isA083991:=进程(n)本地comp;如果是A083989(n),则比较:=A055120型(n) ;返回(isA083989(comp));否则为假;fi;end:对于从1到80000的n,如果是A083991(n),则执行操作,然后打印f(“%d,”,n);fi;od#R.J.马塔尔2007年7月18日
数字x,使σ(x)=σ(y),其中y是x的数字的10的补码mod 10。
+10 2
54, 56, 513, 520, 546, 564, 580, 597, 4845, 5130, 5223, 5454, 5656, 5887, 5970, 6265, 44226, 46365, 48450, 50260, 50840, 51300, 52230, 52520, 53768, 57342, 58580, 58870, 59700, 62650, 64745, 66884, 463650, 477972, 484500, 489132, 489632, 493752, 501536, 503274
例子
σ(54)=σ(56)=120;
σ(513)=σ(597)=800;
σ(477972)=σ(633138)=1415232。
MAPLE公司
使用(数字理论):P:=proc(q)局部a,b,k,n;
对于从1到q的n,执行a:=转换(n,基数,10);
对于从1到nops(a)的k,执行a[k]:=(10-a[k]])mod 10;od;b: =0;
对于从1到nops(a)的k,做b:=b*10+a[nops(a)-k+1];od;
如果b<>n且σ(b)=σ(n),则打印(n);fi;od;结束:P(10^6);
数学
选择[Range[10^6],Apply[And[#1!=#2,DivisorSigma[1,#1]==Divisor Sigma[1],#2]&,{#,FromDigits[IntegerDigits[#]/.d_?Positive:>10-d]}]&](*迈克尔·德弗利格2018年3月9日*)
黄体脂酮素
(PARI)isok(x)={my(dx=数字(x),dy=向量(#dx,k,(10-dx[k])%10),y=来自数字(dy));(x!=y)&&(σ(x)=σ(y));}\\米歇尔·马库斯,2018年3月7日
三角形T(n,k),n>=1,1<=k<=n,按行读取,其中T(n、k)是无进位积n X k基数10。
+10 2
1, 2, 4, 3, 6, 9, 4, 8, 2, 6, 5, 0, 5, 0, 5, 6, 2, 8, 4, 0, 6, 7, 4, 1, 8, 5, 2, 9, 8, 6, 4, 2, 0, 8, 6, 4, 9, 8, 7, 6, 5, 4, 3, 2, 1, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 11, 22, 33, 44, 55, 66, 77, 88, 99, 110, 121, 12, 24, 36, 48, 50, 62, 74, 86, 98, 120, 132, 144
例子
三角形开始:
1;
2, 4;
3, 6, 9;
4, 8, 2, 6;
5, 0, 5, 0, 5;
6, 2, 8, 4, 0, 6;
7, 4, 1, 8, 5, 2, 9;
8, 6, 4, 2, 0, 8, 6, 4;
9, 8, 7, 6, 5, 4, 3, 2, 1;
10, 20, 30, 40, 50, 60, 70, 80, 90, 100;
11, 22, 33, 44, 55, 66, 77, 88, 99, 110, 121;
12, 24, 36, 48, 50, 62, 74, 86, 98, 120, 132, 144;
黄体脂酮素
(PARI)T(n,k)=来自数字(Vec(Pol(digits(n)))*Pol(degits(k))%10);
搜索在0.013秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月22日18:47。包含376138个序列。(在oeis4上运行。)
|