显示找到的9个结果中的1-9个。
第页1
通过在n中所有可能的位置插入4而获得的不同素数。这包括前缀。
+10 10
1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],4,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
黄体脂酮素
(PARI)A069845号(n) ={my(digs=数字(n),u=#digs,nums=集合([]));对于(n=1,1+u,nums=setunion(nums,[fromdigits(向量(1+u、i,如果(i<n,digs[i],如果(i>n,diggs[i-1],4))));#select(isprime,nums);}\\安蒂·卡图恩2019年8月23日
通过在n中所有可能的位置插入6而获得的不同素数。这包括前缀。
+10 10
1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 3, 0, 1, 0, 0
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],6,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
黄体脂酮素
(PARI)A069847号(n) ={my(digs=数字(n),u=#digs,nums=集合([]));对于(n=1,1+u,nums=setunion(nums,[fromdigits(向量(1+u、i,如果(i<n,digs[i],如果(i>n,diggs[i-1],6))));#select(isprime,nums);}\\安蒂·卡图恩2019年8月23日
通过在n中所有可能的位置插入9而获得的不同素数。这包括前缀和后缀。
+10 10
1, 1, 0, 0, 1, 0, 2, 1, 0, 1, 2, 0, 2, 1, 0, 0, 2, 0, 2, 0, 0, 1, 2, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 3, 1, 0, 1, 3, 0, 1, 1, 0, 0, 2, 0, 1, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 2, 0, 0, 0, 1, 0, 1, 0, 0, 1, 2, 0, 1, 0, 0, 1, 2, 0, 0, 1, 0, 1, 2, 0, 1, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 1, 0, 0, 1, 3, 0, 3, 1, 0
MAPLE公司
f: =程序(n)局部k;
如果成员(n mod 10,{0,2,4,5,6,8}),那么如果是isprime(10*n+9),那么返回1,否则返回0 fi;
nops(选择(isprime,{seq(9*10^k+10^(k+1)*floor(n/10^k)+(n mod 10^k),k=0..ilog10(n)+1)}));
结束进程:
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],9,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
通过在n中所有可能的位置插入1而获得的不同素数。这包括前缀和后缀。
+10 9
1, 0, 2, 1, 0, 1, 2, 0, 1, 1, 0, 0, 2, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 2, 1, 0, 0, 2, 0, 2, 0, 0, 0, 2, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 3, 0, 1, 1, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 3, 1, 0, 1, 2, 0, 2, 1, 0, 0, 1, 0, 1, 1, 0, 0, 2, 0, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 1, 1, 0, 0, 2, 0, 3, 0, 0, 1, 3, 0, 1
例子
a(13)=2,因为13->113113131->113和131都是质数。
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],1,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
通过在n中所有可能的位置插入2而获得的不同素数。这包括前缀。
+10 9
0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],2,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
通过在n中所有可能的位置插入3而获得的不同素数。这包括前缀和后缀。
+10 9
2, 1, 0, 1, 1, 0, 2, 1, 0, 1, 3, 0, 1, 0, 0, 1, 3, 0, 2, 0, 0, 1, 1, 0, 0, 1, 0, 1, 2, 0, 2, 0, 0, 0, 1, 0, 2, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 2, 1, 0, 1, 1, 0, 0, 1, 0, 0, 2, 0, 2, 0, 0, 1, 1, 0, 2, 1, 0, 0, 0, 0, 2, 1, 0, 0, 1, 0, 2, 0, 0, 1, 1, 0, 1, 1, 0, 1, 2, 0, 0, 0, 0, 0, 1, 0, 2, 1, 0, 0, 3, 0, 2, 0, 0
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],3,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
通过在n中所有可能的位置插入7而获得的不同素数。这包括前缀和后缀。
+10 9
2, 0, 2, 1, 0, 1, 0, 0, 2, 1, 0, 1, 2, 0, 1, 1, 0, 0, 3, 0, 1, 1, 0, 0, 1, 0, 2, 0, 0, 1, 1, 0, 3, 1, 0, 1, 0, 0, 3, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 2, 0, 0, 1, 1, 0, 2, 1, 0, 1, 2, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 2, 1, 0, 1, 1, 0, 1, 1, 0, 1, 2, 0, 1, 0, 0, 0, 1, 0, 0
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],7,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
通过在n中所有可能的位置插入8而获得的不同素数。这包括前缀。
+10 9
0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],8,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
通过在n中所有可能的位置插入0而获得的不同素数。这包括前缀。
+10 9
0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 2, 0, 2, 0, 0, 0, 2, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 1, 0, 0
数学
表[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n],0,j],{j,1,Floor[Log[10,n]+2]}]],True],{n,1,105}]
搜索在0.008秒内完成
|