A067180-OEIS公司

A067180号

数字和为n的最小素数，如果不存在这样的素数，则为0。

0, 2, 3, 13, 5, 0, 7, 17, 0, 19, 29, 0, 67, 59, 0, 79, 89, 0, 199, 389, 0, 499, 599, 0, 997, 1889, 0, 1999, 2999, 0, 4999, 6899, 0, 17989, 8999, 0, 29989, 39989, 0, 49999, 59999, 0, 79999, 98999, 0, 199999, 389999, 0, 598999, 599999, 0, 799999, 989999, 0, 2998999, 2999999, 0, 4999999 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,2`
	链接	`罗伯特·伊斯雷尔，n=1..1000时的n，a（n）表（Robert G.Wilson v的前175个术语）`
	配方奶粉	`对于k>1，a（3k）=0。` `a（3k-2）=A067523号（2k-1），a（3k-1）=A067523号（2k），对于所有k>1-M.F.哈斯勒2018年11月4日`
	例子	`a（68）=59999999，因为59999999是数字和=68的最小素数；` `a（100）=298999999999，因为2989999999是数字和=100的最小素数。`
	MAPLE公司	`g： =proc（s，d）#小于等于d位数的整数，和为s` `如果s>9d，则返回[]fi；` `如果d=1，则返回[s]fi；` `[seq（op（映射（t->j10^（d-1）+t，g（s-j，d-1））），j=0..9）]；` `结束进程：` `f： =程序（n）局部d，j，x，y；` `如果n mod 3＝0，则返回0 fi；` `对于来自天花板的d（n/9）do` `如果d=1，则` `如果isprime（n）且n<10，则返回n` `否则下一个` `fi（菲涅耳）` `fi；` `对于j从1到9 do` `对于y，g（n-j，d-1）do` `x： =10^（d-1）*j+y；` `如果isprime（x），则返回xfi；` `od od od；` `结束进程：` `f（1）：=0:f（3）：=3:` `地图（f，[1.100]美元）#罗伯特·伊斯雷尔2020年12月13日`
	数学	`a=表[0，｛100｝]；Do[b=应用[Plus，IntegerDigits[Prime[n]]]；如果[b<101&&a[[b]]==0，a[[b]]=Prime[n]]，{n，1，10^7}]；一` `f[n_]：=如果[n>5&&Mod[n，3]==0，0，块[{k=1，lmt，lst={}，ip=IntegerPartitions[n，Round[1+n/9]，{0，1，2，3，4，5，6，7，8，9}]}，lmt=1+长度@ip；当[k<lmt，AppendTo[lst，Select[FromDigits@#&/@Permutations@ip[[k]]，PrimeQ[#]&]]；k++]；最小@Flatten@lst]]；f[1]=0；f[4]=13；数组[f，70](罗伯特·威尔逊v2014年9月28日）`
	黄体脂酮素	`（PARI）A067180号（n） ={如果（n<2，0，n<4，n，n%3，my（d=divrem（n，9））；对于素数（p=d[2]*10^d[1]-1，和数（p）==n&&return（p））}\\M.F.哈斯勒2018年11月4日`
	交叉参考	`囊性纤维变性。A054750型.` `从该序列中删除0项将留下A067523号.` `上下文中的序列：A336838飞机 A051298号 A069870号A067182号 A342667飞机 A191000个` `相邻序列：A067177号 A067178号 A067179号A067181号 A067182号 A067183号`
	关键词	`容易的,非n,基础`
	作者	`阿玛纳斯·穆尔西2002年1月9日`
	扩展	`编辑和扩展人罗伯特·威尔逊v2002年3月1日` `编辑人雷·钱德勒2007年4月24日`
	状态	`经核准的`