显示找到的8个结果中的1-8个。
第页1
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 37, 47, 59, 67, 79, 89, 113, 127, 137, 139, 149, 157, 167, 179, 199, 223, 227, 229, 233, 239, 257, 269, 277, 337, 347, 349, 359, 367, 379, 389, 449, 457, 467, 479, 499, 557, 569, 577, 599, 677, 1117, 1123, 1129
评论
可以接受相同的数字,例如1117在序列中-哈维·P·戴尔2011年8月16日
数学
daoQ[n_]:=计数[Differences[IntegerDigits[n]],_?(# < 0 &)] == 0; 选择[Prime[范围[200]],daoQ](*哈维·P·戴尔2011年8月16日*)
选择[Prime[Range[200]],Min[Differences[Integer Digits[#]]]>-1&](*哈维·P·戴尔2023年3月2日*)
黄体脂酮素
(R) j=2;y=as.bigz(c());而(j<1000){
x=排序(作为数字(strsplit(作为字符(j),spl=“”)[1]),decr=F)
如果(j==粘贴(x[x>0],塌陷=“”)y=c(y,j)
j=下一素数(j)
(PARI)选择(n->n=数字(n));n==向量(n),素数(500))\\查尔斯·格里特豪斯四世2014年3月15日
(Magma)[p:p in PrimesUpTo(1200)| Reverse(Intseq(p))eq Sort//马吕斯·A·伯蒂2019年11月29日
(Python)
从itertools导入count、islice、combinations_with_replacement
从sympy导入isprime
(2,3,5,7)的产量
a、 b={‘1’:0,‘2’:1,‘3’:1,‘4’:2,‘5’:2,‘6’:2,‘7’:2,‘8’:3,‘9’:3},(1,3,7,9)
对于计数(1)中的l:
对于组合s_with_replacement('123456789',l)中的d:
k=10*int(''.join(d))
对于b[a[d[-1]]中的e:
如果是质数(m:=k+e):
产量m
2, 3, 5, 7, 11, 31, 41, 43, 53, 61, 71, 73, 83, 97, 211, 311, 331, 421, 431, 433, 443, 521, 541, 631, 641, 643, 653, 661, 733, 743, 751, 761, 773, 811, 821, 853, 863, 877, 881, 883, 887, 911, 941, 953, 971, 977, 983, 991, 997, 2111, 2221, 3221
数学
t={};Do[p=素数[n];如果[Select[Differences[IntegerDigits[p]],#>0&]=={},AppendTo[t,p]]、{n,460}];t吨(*贾扬达·巴苏2013年5月4日*)
选择[Prime[Range[600]],Max[Differences[Integer Digits[#]]]<1&](*哈维·P·戴尔2013年10月30日*)
黄体脂酮素
(PARI)是(n)=我的(d=数字(n));对于(i=2,#d,如果(d[i]>d[i-1],返回(0));i素数(n)\\查尔斯·格里特豪斯四世2017年8月18日
(Python)
从itertools导入count、islice、combinations_with_replacement
从sympy导入isprime
(2,3,5,7)的产量
a、 b={“1”:1,“2”:1
对于计数(1)中的l:
mlist=[]
对于组合s_with_replacement('987654321',l)中的d:
k=10*int(''.join(d))
对于b[:a[d[-1]]]中的e:
如果是质数(m:=k+e):
mlist.append(m)
排序后的产量(mlist)
2, 3, 5, 7, 13, 17, 19, 23, 29, 37, 47, 59, 67, 79, 89, 127, 137, 139, 149, 157, 167, 179, 239, 257, 269, 347, 349, 359, 367, 379, 389, 457, 467, 479, 569, 1237, 1249, 1259, 1279, 1289, 1367, 1459, 1489, 1567, 1579, 1789, 2347, 2357, 2389, 2459, 2467, 2579
数学
t={};Do[p=素数[n];如果[Select[Differences[IntegerDigits[p]],#<=0&]=={},AppendTo[t,p]]、{n,380}];t吨(*贾扬达·巴苏2013年5月4日*)
选择[Prime[Range[5000]],Min[Differences[Integer Digits[#]]]>0&](*哈维·P·戴尔2015年6月20日*)
选择[FromDigits@#&/@子集@范围@9、PrimeQ](*汉斯·鲁道夫·威德默2023年4月8日*)
黄体脂酮素
(PARI)A052015型=vecextract(vecsort(vector(511,i,isprime(t=eval(concat(vecexstract(Vec(“123456789”),i)))*t),NULL,8),“^1”)/*对于旧PARI版本,replace,NULL(8),^1)by),“-100..”*/\\M.F.哈斯勒2009年1月27日
(Python)
从sympy导入isprime
从itertools导入组合
def agen():#术语生成器
对于范围(1,9)中的d:
对于组合中的c(“123456789”,d):
如果是素数(t:=int(“”.join(c)):
产量t
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 21, 31, 40, 41, 43, 53, 61, 62, 63, 71, 73, 82, 83, 86, 93, 97, 421, 431, 521, 541, 631, 641, 643, 653, 743, 751, 761, 821, 842, 853, 862, 863, 941, 953, 961, 971, 983, 5431, 6421, 6521, 7321, 7541, 7621, 7643, 8431, 8521
评论
序列是有限的。上一项a(104)=98765431。
例子
数字93是按顺序排列的,因为93的所有除数(1,3,31,93)都是十进制数字严格递减的数字。
MAPLE公司
带有(数字理论):A190219号:=proc(n)选项记住:局部d,dd,i,j,k,m,poten:如果(n=1),则返回1:fi:从procname(n-1)返回k,+1 do d:=除数(k):poten:=1:对于i从1到nops(d)do m:=-1:dd:=convert(d[i],base,10):对于j从1到no(dd)do if(m<dd[j]),则m:=dd[j]:else poten:=0:break:fi:od:if(poten=0),则break:fi:od:if(poten=1)然后返回k:fi:od:end:seq(A190219号(n) ,n=1..60)#纳撒尼尔·约翰斯顿2011年5月6日
数学
选择[Range[9000],Max[Flatten[Differences/@(Integer Digits/@Divisors[#])]]<0&](*哈维·P·戴尔2024年2月22日*)
3, 5, 7, 11, 31, 53, 71, 73, 97, 311, 331, 733, 751, 773, 911, 953, 971, 977, 991, 997, 3331, 5333, 5531, 7331, 7333, 7753, 9311, 9511, 9533, 9551, 9733, 9931, 9973, 33311, 33331, 55331, 55333, 55511, 73331, 75511, 75533, 75553, 77551, 77711
1, 4, 6, 8, 9, 10, 20, 21, 30, 32, 40, 42, 50, 51, 52, 54, 60, 62, 63, 64, 65, 70, 72, 74, 75, 76, 80, 81, 82, 84, 85, 86, 87, 90, 91, 92, 93, 94, 95, 96, 98, 210, 310, 320, 321, 410, 420, 430, 432, 510, 520, 530, 531, 532, 540, 542, 543, 610, 620, 621, 630
评论
序列是有限的,有935项,最后一项是a(935)=9876543210。
1, 2, 3, 4, 11, 13, 14, 16, 18, 20, 21, 23, 25, 82, 83, 98, 100, 115, 116, 117, 119, 132, 133, 135, 142, 147, 150, 160, 162, 164, 166, 717, 835, 843, 933, 956, 968, 970, 1055, 1062, 1066, 1076, 1088, 1090, 1092, 1093, 1166, 1167, 1179, 1190, 1191, 1199, 1202
评论
总共有87个术语:1,2,3,4,11,13,14,16,18,20,21,23,25,82,83,98100115117119133135142,147,150,160,162,164,166,717,835,843,933,956,968,970,1055,1062,1066,1076,1088,1090,1092,1093,1166,1167,1179,1190,1191,1199,1202,1215,1218,7433,7518,7530,7531,8414,8486,8498,8509,8510,8511,9096,9286,9391,9441,9463,9468,9471,9479,61307,68743,69564,76755,77533,77608,77614,587773,587837,649440,656917,5634190,5694444,5694505
数学
选择[Range[1300],And@@Negative[Differences[Integer Digits[Prime[#]]]&](*哈维·P·戴尔2011年11月24日*)
3, 5, 7, 41, 43, 71, 73, 641, 643, 76541, 76543, 87641, 87643
数学
dsc[n_]:=0>最大@差异@整数位数@n; 并集@Flatten@Select[Partition[Prime@Range@9000,2,1],#[[2]]-#[1]]==2&&And@@dsc/@#&](*乔瓦尼·雷斯塔2015年8月26日*)
黄体脂酮素
(PARI)列表a(nn=100000)={v=[];对于素数(p=2,nn,if(isprime(p+2)&&(d=数字(p))&&\\米歇尔·马库斯2015年8月23日
搜索在0.009秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月21日16:02 EDT。包含376087个序列。(在oeis4上运行。)
|