|
|
A360986 |
| 小数位数之和与素数具有相同小数位数集的素数。 |
|
1
|
|
|
2, 3, 5, 7, 199, 919, 991, 2999, 9929, 11177, 11717, 17117, 31333, 33331, 71171, 71711, 161611, 616111, 999499, 1111333, 1131133, 1131331, 1133131, 1313311, 3111313, 3111331, 3131113, 3131311, 3133111, 3311131, 3337777, 3377377, 3773377, 3773773, 7377373, 7733377, 7737337, 7737733, 32333333
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
a(5)=199是一个项,因为199是质数,1+9+9=19具有与199相同的十进制数字集{1,9}。
|
|
MAPLE公司
|
dmax:=7:#对于最多包含dmax位数的术语
数据集:=proc(s,s)选项记住;
#具有和s和元素集s的非递减列表[x_1,…,x_n]
局部i,x1;
如果S={},则如果S=0,则返回{[]},否则返回{}fi-fi;
x1:=最小值(S);
`联合`(seq(map(t->[x1$i,op(t)],procname(s-i*x1,s减去{x1})),i=1..`if`(x1=0,dmax,floor(s/x1)))
结束进程:
R: ={2,3,5,7}:计数:=4:
对于从2到9的s*dmax-1 do
如果s mod 3=0,则下一个fi;
ds:=转换(转换(s,基数,10),集);
DS:=选择(t->nops(t)>1和nops(t)<=dmax,数据集(s,DS));
对于DS中的r do
对于移除(t->成员(t[1],[0,2,4,5,6,8])或t[-1]=0中的v,组合:-置换(r))do
p: =加(v[i]*10^(i-1),i=1..nops(v));
如果是素数(p),则R:=R并{p};计数:=计数+1;
fi(菲涅耳)
od od od日期:
排序(转换(R,列表));
|
|
黄体脂酮素
|
(PARI)isok(p)=如果(i素数(p),my(d=数字(p));集合(d)==集合(数字(vecsum(d)))\\米歇尔·马库斯2023年2月28日
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|