A048853-OEIS公司

A048853号

通过改变n的十进制展开式的一位数字（不改变位数）可以产生的素数（不同于n）。

4, 3, 3, 4, 3, 4, 3, 4, 4, 4, 7, 4, 8, 4, 4, 4, 7, 4, 7, 2, 7, 2, 6, 2, 2, 2, 7, 2, 5, 2, 5, 2, 8, 2, 2, 2, 5, 2, 7, 3, 6, 3, 7, 3, 3, 3, 6, 3, 8, 2, 7, 2, 6, 2, 2, 2, 7, 2, 5, 2, 5, 2, 8, 2, 2, 2, 5, 2, 7, 3, 6, 3, 7, 3, 3, 3, 8, 3, 6, 2, 7, 2, 6, 2, 2, 2, 7, 2, 5, 1, 6, 1, 7, 1, 1, 1, 4, 1, 6, 4, 10, 4, 8, 4, 4 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`一个(A192545号（n））=0-莱因哈德·祖姆凯勒2011年7月5日`
	链接	`莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=1..10000时的n，a（n）表`
	例子	`改变数字13得到八个素数：11、17、19、23、43、53、73、83，因此a（13）=8。`
	MAPLE公司	A048853号：=proc（n:：integer）局部结果，ddig，d，c，tmp；恢复：=0；ddigs：=转换（n，base，10）；对于从1到nops（ddig）的d，对于从0到9的c，如果c=0且d=nops（addig），则继续；否则，如果c<>op（d，ddigs），则tmp:=[op（1..d-1，ddig），c，op（d+1..nops（ddigs；tst:=总和（op（i，tmp）*10^（i-1），i=1..nops（tmp））；如果isprime（tst），则resul:=resul+1；fi；fi；fi；od：od；返回（结果）；结束：对于从1到90的n，执行printf（“%d，”，A048853号（n））；od#R.J.马塔尔2006年4月25日
	数学	`a[n_]：=模块[{idn=IntegerDigits[n]，id，np=0}，Do[id=idn；如果[id[j]]！=k、 id〔〔j〕〕〕＝k；如果[id[[1]]！=0&&PrimeQ[起始数字[id]]，np=np+1]]，{j，1，长度[idn]}，{k，0，9}]；np]；表[a[n]，{n，1，105}](Jean-François Alcover公司2011年12月1日）`
	黄体脂酮素	`（哈斯克尔）` `导入数据。列表（inits、tails、nub）` `a048853 n=（总和$map（a010051.read）$tail$nub$concat$zipWith` `（\its tls->映射（（\xs ys d->xs++（d:ys））its tls）“0123456789”）` `（map-init$tail$inits$show n）（tail$tails$shown n））-a010051 n` `--莱因哈德·祖姆凯勒2011年7月5日` `（Python）` `从sympy导入isprime` `def h1（n）：#hamming distance 1是n的邻居，不以0开头` `s=str（n）；d=“0123456789”；L=长度` `如果c=s[i]和not（i==0和c==“0”）` `定义a（n）：返回和（如果为isprime（k），则h1（n）中k为1）` `打印（[a（n）表示范围（1106）中的n）]#迈克尔·S·布兰尼基2022年7月31日`
	交叉参考	`囊性纤维变性。A050652号-A050673号.` `囊性纤维变性。A010051型,A158124号.` `上下文中的序列：A188885号 A362330型 A129344号A303701型 A179845号 A180217号` `相邻序列：A048850型 A048851号 A048852号A048854号 A048855号 A048856`
	关键词	`基础,非n,容易的,美好的`
	作者	`G.L.Honaker，Jr.小。和帕特里克·德·格斯特`
	状态	`经核准的`