A138792-OEIS公司

A138792号

最小素数p，使得p mod（p的位数之和）=n。

三

2, 11, 67, 23, 89, 53, 83, 29, 173, 19, 197, 193, 337, 167, 269, 79, 757, 397, 379, 479, 3677, 769, 997, 6967, 1699, 3889, 9857, 7867, 6959, 9949, 16987, 9887, 49697, 47599, 18899, 67979, 73999, 56999, 197699, 49999, 159899, 189989, 98899, 98999, 988877 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,1`
	评论	`n在中首次出现A136251号.`
	链接	`David A.Corneth，n=0..181时的n、a（n）表（Robert G.Wilson v的前74项）`
	例子	`a（2）=67=13*5+2<-->67（mod 13）=2。`
	MAPLE公司	`五： =数组（0..50）：计数：=0:p:=1:` `当计数<51 do时` `p： =下一素数（p）；` s： =转换（转换（p，base，10），`+`）； `v： =p mod s；` `如果v<=50且v[v]=0，则v[v]：=p；计数：=计数+1；菲` `日期：` `转换（V，列表）#罗伯特·伊斯雷尔2023年3月7日`
	数学	`f[n_]：=块[{p=素数@n}，Mod[p，Plus@@IntegerDigits@p]]；t=表[0，{1000}]；Do[a=f@n；如果[a<1000&&t[[a+1]]==0，t[[a+1]]=素数@n；打印[{a，素数@n}]]，{编号50320000}]` `lp[n_]：=模块[｛p=2｝，While[Mod[p，Total[IntegerDigits[p]]]=n、 p=下一素数[p]]；p] ；数组[lp，50，0](哈维·P·戴尔2019年1月15日）`
	黄体脂酮素	`（PARI）a（n）=我的（p=2）；while（（p%总和（p））！=n、 p=下一素数（p+1）；p\\米歇尔·马库斯2023年3月7日` `（Python）` `从sympy导入nextprime` `从itertools导入islice` `def agen（）：#术语生成器` `adict，n，p=dict（），0，2` `为True时：` `v=p%sum（映射（int，str（p）））` `如果v不在adict:adict[v]=p中` `而adict中的n：生成adict[n]；n+=1` `p=下一素数（p）` `打印（列表（islice（agen（），45））#迈克尔·布拉尼基2023年3月7日`
	交叉参考	`囊性纤维变性。A136251号,A138791号.` `上下文中的序列：A185627号 A216585型 A245277型A058056号 A266579型 A063768号` `相邻序列：A138789号 A138790号 A138791号A138793号 A138794号 A138795号`
	关键词	`基础,非n`
	作者	`罗伯特·威尔逊v2008年3月28日`
	扩展	`姓名更正人罗伯特·伊斯雷尔2023年3月7日`
	状态	`已批准`

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

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

上次修改时间：美国东部夏令时2024年4月16日14:05。包含371740个序列。（在oeis4上运行。）