搜索: a006567-编号:a006567
|
|
|
|
37、73、1237、3019、7321、9103、104801、105601、106501、108401、111211、112111、120121、121021、137831、138731、144541、145441、150151、151051、161561、165161、167861、168761、171271、172171、180181、181081、185681、186581、189337、194891、198491、302647、305603、306503
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
差异是36的倍数。
|
|
链接
|
|
|
例子
|
37和73是质数。73-37=36,即6^2。
302647是质数,反转746203也是质数。746203 - 302547 = 443556 = 666^2.
|
|
黄体脂酮素
|
(PARI)是整数(n)=(n==截断(n))
反向(n)=eval(concat(Vecrev(Str(n)))
isquare(n)={local(f,m,p=0);if(n==1,p=1,f=因子(n);m=gcd(f[,2]);if(isinteger(m/2),p=1));return(p)}
{代表(i=2,10^7,p=反面(i);如果是(isprime(i)&&isprim(p)&isquare(abs(i-p)),打印1(i,“”))}/*Antonio Roldán,2012年12月20日*/
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
73, 1811, 7817, 7927, 11701, 12611, 14431, 14831, 15101, 15241, 15541, 15601, 16111, 16451, 16651, 17021, 18671, 18731, 19181, 19541, 19681, 19841, 32213, 32713, 33223, 33623, 33923, 35803, 36013, 36353, 36913, 37123, 37363, 37463, 37963, 39383, 39983, 71707
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(1)=73,因为73-37=36=第八个三角形数。
a(2)=1811,因为R(1811)=A004086年(1811)=1181,1811-1181=630=第35个三角形数。
a(3)=7817,因为7817-7187=630=第35个三角形数。
a(4)=7927,因为7927-7297=630=35*36/2。
|
|
数学
|
emrp[p_]:=模块[{rev=IntegerReverse[p]},If[rev!=p&&PrimeQ[rev],Max[rev,p],Nothing]];选择[Union[emrp/@Prime[Range[7500]]、OddQ[Sqrt[8(#-IntegerReverse[#])+1]&](*哈维·P·戴尔2023年1月30日*)
|
|
交叉参考
|
|
|
关键词
|
非n,基础,容易的
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1523, 3251, 7529, 9257, 154747, 165857, 171467, 174767, 312509, 322519, 373669, 747451, 758561, 764171, 767471, 905213, 915223, 966373, 1000033, 1020233, 1077733, 1078733, 1083833, 1099933, 1165643, 1173743, 1175743
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
差异是1728的倍数。
|
|
链接
|
|
|
例子
|
905213是质数,312509是质数。905213 - 312509 = 592704 = 84^3.
|
|
数学
|
选择[Prime[Range[100000]]!PalindromeQ[#]&&PrimeQ[IntegerReverse[#]]&&IntegerQ[CubeRoot[Abs[#-IntegerReverse[#]]]&](*哈维·P·戴尔2023年1月27日*)
|
|
黄体脂酮素
|
(PARI)是整数(n)=(n==截断(n))
反向(n)=eval(concat(Vecrev(Str(n)))
iscube(n)={局部(f,m,p=0);如果(n==1,p=1,f=因子(n);m=gcd(f[,2]);如果
{表示(i=2,10^7,p=反面(i);if(isprime(i)&&isprim(p)&&iscube(abs(i-p)),print1(i,“”))}/*Antonio Roldán,2012年12月19日*/
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
|
抵消
|
2,1
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
完成,满的,非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
13, 113, 1223, 11149, 111119, 1111339, 11111117, 111111199, 1111111999, 11111111113, 111111111149, 1111111111267, 11111111111257, 111111111113447, 1111111111112227, 11111111111122223, 111111111111113569, 1111111111111113779, 11111111111111133677, 111111111111111111157, 1111111111111111122359, 11111111111111111133469
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2,1
|
|
链接
|
|
|
MAPLE公司
|
nextl:=进程(L)
局部m,k,r;
#L是数字列表1-9,最后一个奇数,按非递减顺序排列
如果L[-1]<=7,则返回底土(-1=L[-1]+2,L)fi;
m: =nops(L);k: =m-1;
而L[k]=9 do k:=k-1 od:
r: =[op(L[1..k-1]),(L[k]+1)$(m+1-k)];
如果r[-1]::即使如此r:=底土(-1=r[-1]+1,r)fi;
第页
结束进程:
f: =proc(n)局部L,p,q,i;
五十: =[1$n];
做
p: =加(L[i]*10^(i-1),i=1..n);
q: =加(L[-i]*10^(i-1),i=1..n);
如果q<>p和isprime(p)和isprim(q),则返回(q)fi;
五十: =nextl(L);
日
结束进程:
|
|
黄体脂酮素
|
(Python)
从sympy导入isprime
从itertools导入count、islice、combinations_with_replacement为mc
定义bgen(d):
nd=(“”.join(m)代表mc中的m(“123456789”,d))
滤波器的产量(isprime,map(int,nd))
定义正常(ndp):
s=str(ndp)
return len(集合)!=1和isprime(int(s[::-1])
定义代理():
计数(2)中d的(next(filter(ok,bgen(d)))产量
打印(列表(islice(agen(),22))#迈克尔·布拉尼基2022年6月26日
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
97, 991, 9941, 99881, 999983, 9999971, 99999643, 999999761, 9999999511, 99999999977, 999999998863, 9999999998633, 99999999998333, 999999999999877, 9999999999998633, 99999999999987443, 999999999999999331, 9999999999999988633, 99999999999999999631
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2,1
|
|
链接
|
|
|
数学
|
nde[n_]:=模块[{p=NextPrime[10^n,-1]},而[Max[Differences[IntegerDigits[p]]>0||CompositeQ[Integer Reverse[p]],p=NextPrime[p,-1]];p] ;数组[nde,17,2](*哈维·P·戴尔2020年3月13日*)
|
|
黄体脂酮素
|
(Python)
从sympy导入isprime
从itertools导入count、islice、combinations_with_replacement为mc
定义bgen(d):
nd=(“”.join(m)代表mc中的m(“987654321”,d))
滤波器的产量(isprime,map(int,nd))
定义正常(ndp):
s=str(ndp)
return len(集合)!=1和isprime(int(s[::-1])
定义代理():
计数(2)中d的(next(filter(ok,bgen(d)))产量
打印(列表(islice(agen(),20))#迈克尔·布拉尼基2022年6月26日
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
0, 0, 157, 1097, 10039, 100129, 1000039, 10000169, 100000543, 1000000097, 10000000277, 100000000237, 1000000001159, 10000000000853, 100000000001173, 1000000000000273, 10000000000000079, 100000000000001249
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(1)=a(2)=0。a(3)=157,因为157是最小的非顺式素数p>10^3,因此R(p),在这种情况下751也是素数,并且数字sod(p)的和,在这种情形下1+5+7=13,同样是一个emirp(反转不同素数的素数)。a(4)=1097,因为它是最小的4位素数,其反转(7901)是不同的素数,并且其数字和1+0+9+7=17,其是素数并且具有素数反转(71)。
|
|
MAPLE公司
|
读取(“转换”);A007953号:=程序(n)局部d;加(d,d=换算(n,基数,10));end proc:isA006567:=proc(p)如果isprime(p),则isprime(digrev(p))和digrev(p)<>p;否则为假;结束条件:;终末程序;A167992号:=程序(n)局部p;p:=下一个素数(10^(n-1));当p<=10^n do时,如果isA006567(p)和isA00656/7(A007953号(p) )然后返回p;结束条件:;p:=下一素数(p);结束do;返回0;结束进程:seq(A167992号(n) ,n=1..70)#R.J.马塔尔2009年11月18日
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1000000001159, 1000000002217, 1000000003463, 1000000004161, 1000000005713, 1000000005911, 1000000006037, 1000000006451, 1000000006699, 1000000007333, 1000000009403, 1000000010249, 1000000010447, 1000000010483, 1000000011019
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
最后的13位数字示例:999999999 0583、999999999 0853、9999999995191、9999999966901、99999999 7919、999999998987。一些数字长度的第一个示例:10^16+{79,1551,3711,7711,9421,9867};10^30 + {2613, 29979, 37857, 41461, 47577}; 10^36 + {9061, 21081, 52351, 71017, 95781}; 10^70 + {691, 19321, 203403, 225201, 231987}; 10^72 + {97167, 158637, 227001, 233679, 265021}. ... 跳过其他几个法定长度。。。10^148 + 53967 --杰克·布伦南
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(1)=1000000001159是素数,R(1000000001159)=951100000000是素数,sod(1000000001159)=17是素数,R(17)=71是素数。
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
|
抵消
|
2,1
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
完成,满的,非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
73、97、113、12547、12611、13259、13523、14107、14563、14891、15667、15731、30367、31799、31991、312073、318281、350033、359377、366169、371353、372377、383833、392153、393761、397921、792131、796291、9362227、936739、948707、966379、992947、1005427、1008563、1029883、1043899、1048571、1311749、1313797、1340357、1358029
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
在OEIS中,什么是显示其他类似碱基对的好方法?
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(1)=73,因为73(基数8)=111(这是回文),R(73)=37是不同的素数(基数10)。a(2)=97,因为97(以8为基数)=141(这是回文),R(97)=79是不同的素数(以10为基数)。a(3)=113,因为113(以8为基数)=161(这是回文),R(113)=311(这是不同的素数(以10为基数)。a(4)=12547,因为12547(基数8)=30403(这是一个回文),而R(12547)=74521是一个不同的素数(基数10)。
|
|
MAPLE公司
|
isA006567:=进程(p)局部r;如果isprime(p),则r:=数字rev(p);r<>p和isprime(r);否则为假;结束条件:;结束进程:isA029803:=进程(n)本地dgs,d;dgs:=转换(n,基数,8);对于从1到nops(dgs)/2的d,如果op(d,dgs;结束条件:;结束do;返回true;结束进程:isA029976:=proc(n)isprime(n)和isA029803(n);结束进程:isA168110:=进程(p)是A029976(p),是A006567(p);结束进程:A168110型:=proc(n)选项记忆;局部a;如果n=1,则73;否则a:=下一素数(进程名(n-1));当不是A168110(a)时,执行a:=下一个质数(a);结束do;返回a;结束条件:;结束进程:seq(A168110型(n) ,n=1..30)#R.J.马塔尔2009年12月6日
|
|
数学
|
okQ[n_]:=模块[{fridn=FromDigits[反向[InterDigits[n]]],idn8=IntegerDigits[n,8]},fridn=n&&PrimeQ[fridn]&&idn8==反向[idn8]];选择[Prime[范围[75000]],好的](*哈维·P·戴尔2011年8月10日*)
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
搜索在0.102秒内完成
|