显示找到的4个结果中的1-4个。
第页1
1234567891, 12345678910111, 123456789101112131415161
评论
由所有正整数(Champernowne常数的十进制数字)串联的无限字符串1234567891011213的初始部分1234…形成的素数。
接下来的术语太大,无法显示:
a(4)=123456789…1121131141(235位)
a(5)=123456789…6896997097(2804位)
a(6)=12345…13611362136313(4347位)
a(7)=123456789…9709971097(37735位数字)
a(8)的位数超过37800。(结束)
a(8)的位数超过140000-泰勒-巴斯比2023年2月12日
参考文献
R.W.Stephan,两个Smarandache序列中的因子和素数。
数学
使用[{no=500},FromDigits/@Select[Table[Take[Flatten[Integer Digits/@Range[no]],n],{n,no}],PrimeQ[FromDiges[#]]&]](*哈维·P·戴尔2011年2月6日*)
选择[Table[Floor[N[ChampernowneNumber[10],N]*10^N],{N,24}],PrimeQ](*阿尔卡迪乌斯·韦索洛夫斯基2012年5月10日*)
交叉参考
囊性纤维变性。A007376号(无穷巴比尔单词=几乎自然数:以10为基数写n,并列数字)。
最小素数,其十进制展开以前n个素数按降序串联开始。
+10 6
2, 3203, 5323, 75323, 11753221, 131175329, 171311753203, 19171311753229, 231917131175321, 292319171311753231, 3129231917131175327, 3731292319171311753239, 41373129231917131175321, 43413731292319171311753233, 4743413731292319171311753269, 534743413731292319171311753223
评论
序列被推测为无穷大。
a(n)=“素数(n)…素数(1)R(n)”。
对于n>1:03、3、3、21、9、03、29、1、31、7、39、1、33、69、23、3、59、27。。。
对于无限多个n,我们假设R(n)=1。
参考文献
Leonard E.Dickson,《数字理论史》,第一卷,多佛出版社,2005年。
例子
a(1)=2=素数(1)是例外情况,因为没有R(1)。
a(2)=3203=素数(453)=“32 03”,R(2)=“03”。
a(5)=11753221=素数(772902)=“素数(5)…素数(1)21”,R(5)=21。
黄体脂酮素
(Python)
从症状导入isprime,素数范围,素数
定义a(n):
如果n==1:返回2
c=int(“”.join(map(str,[p代表素数范围(2,素数(n)+1)中的p)][::-1]))
功率10=10
为True时:
c*=10
对于范围(1,pow10,2)内的b:
如果b%5==0:继续
如果是质数(c+b):
返回c+b
功率10*=10
打印([a(n)代表范围(1,17)中的n])#迈克尔·布拉尼基2022年3月12日
作者
Ulrich Krug(leuktfeuer37(AT)gmx.de),2009年12月4日
2, 13, 127, 1237, 12347, 123457, 1234789, 12356789, 1234567891, 100123456789
10, 121, 123, 1234, 123451, 1234561, 1234567, 123456782, 12345678911, 123456789101, 123456789101117, 12345678910111229, 123456789101112133, 123456789101112131414, 1234567891011121314159
例子
a(1)=10,因为10=2*5是最小的半素数(或双素数,两个素数的乘积),它的最左边(以10为基数)的数字是1。
a(2)=121,因为121=11^2半素数,其最左边的数字是12。
a(3)=123,因为它已经是半素数了。
a(4)=1234=2*617。
a(5)=123451=41*3011。
a(6)=1234561=211*5851。
数学
semiPrimeQ[n_]:=Plus@@Last/@FactorInteger@n==2;f[n_]:=块[{k=0,m=FromDigits@Flatten@IntegerDigits@范围@n},如果[semiPrimeQ@m,而[a=10^(1+Max[0,Floor@Log10@k])m+k!semi-PrimeQ@a,k++];m=a];m] ;数组[f,15]
搜索在0.007秒内完成
|