A039997-OEIS公司

A039997号

作为n的数字的子串出现的不同素数的数目。

0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 2, 0, 1, 0, 2, 0, 1, 1, 1, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 1, 3, 1, 1, 0, 1, 1, 2, 0, 1, 0, 2, 0, 0, 1, 1, 2, 3, 1, 1, 1, 2, 1, 2, 0, 1, 1, 1, 0, 1, 0, 2, 0, 0, 1, 2, 2, 3, 1, 2, 1, 1, 1, 2, 0, 0, 1, 2, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 2, 0, 0, 0, 1, 1, 2, 0, 1

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,13

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n，a（n）表，n=1.10000

配方奶粉

一个(A062115号（n））=0；一个(A093301号（n））=n和a（m）<>n对于m<A093301号（n） ●●●●-莱因哈德·祖姆凯勒2007年7月16日

一个(A163753号（n））>0；一个(A205667型（n））=1。[莱因哈德·祖姆凯勒2012年1月31日]

例子

a（22）＝1，因为22具有两个子串，这两个子串是素数，但它们是相同的。a（103）=2，因为素数3和103作为子串出现。

MAPLE公司

a： =n->（s->nops（选择（t->t[1]和isprime（解析（t））），

{seq（seq（s[i.j]，i=1..j），j=1..长度}））（“”|n）：

seq（a（n），n=1..100）#阿洛伊斯·海因茨2022年8月9日

数学

a[n_]：=块[{s=整数位数[n]，c=0，d={}}，l=长度[s]；t=压扁[表[Take[s，{i，j}]，{i、1，l}，{j，i，l}]，1]；k=l（l+1）/2；当[k>0时，如果[t[[k]][[1]]！=0，d=追加[d，起始数字[t[k]]]]；k--]；计数[PrimeQ[Union[d]]，True]]；表[a[n]，{n，1，105}]

黄体脂酮素

（哈斯克尔）

导入数据。列表（isInfixOf）

a039997 n=长度[p|p<-takeWhile（<=n）a000040_list，

显示p`isInfixOf`show n]

a039997_list=映射a039997[1..]

--莱因哈德·祖姆凯勒2012年1月31日

（PARI）dp（n）=如果（n<12，返回（如果（isprime（n），[n]，[]））；my（v=vecsort（select（isprime，eval（Vec（Str（n）））），8），t）；当（n>9时，如果（gcd（n%10，10）>1，n=10；下一步）；t=10；而（（t*=10）<n*10，如果（isprime（n%t），v=concat（v，n%t）））；v=vecsort（v，8）；n=10）；v（v）

a（n）=#dp（n）\\查尔斯·格里特豪斯四世2012年7月10日

（Python）

来自症状输入isprime

定义a（n）：

s=str（n）

ss=（int（s[i:j]）对于范围i（len（s））对于范围j（i+1，len（s+1））

return len（设置（如果是i素数（k），则ss中k的k为k））

打印（[a（n）表示范围（1106）中的n）]#迈克尔·布拉尼基2022年8月7日

交叉参考

不同于A039995号在第100个学期之后。囊性纤维变性。A035232美元.

上下文中的序列：A361414飞机 A193403号 A354272型*A039995号 A035232美元 A359269型

相邻序列：A039994号 A039995号 A039996号*A039998号 A039999号 40000澳元