OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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
链接
罗伯特·伊斯雷尔,n,a(n)表,n=1.10000
例子
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日
交叉参考
囊性纤维变性。A000040型,A158473号.
底漆在A249515型.
关键词
非n,基础
作者
罗伯特·伊斯雷尔2023年2月27日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月24日13:13。包含372773个序列。(在oeis4上运行。)