|
| |
|
| A073901型 |
| 具有非零数字和数字和n的素数。 |
|
3
|
|
|
|
0, 2, 1, 3, 7, 0, 29, 27, 0, 90, 234, 0, 753, 1025, 0, 3876, 9242, 0, 32549, 50112, 0, 180092, 420318, 0, 1525141, 2467286, 0, 9248093, 20668960, 0, 76318859, 130130794, 0, 487397935, 1066434006, 0
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
对于所有k>1，a（3k）=0。
|
|
|
链接
|
|
|
|
例子
|
a（2）=2：两个素数是2和11。a（5）=7：素数是5、41、23、113、131、311和2111。
|
|
|
MAPLE公司
|
S[1，1]：=[1]：
对于从2到9的x，做S[1，x]：=[]od:
a[1]：=0:a[2]：=2：
对于从2到22 do的n
对于从2到9的x，做S[n，x]：=映射（`+`，S[n-1，x-1]，1）od：
S[n，1]：=[seq（op（映射（t->10*t+1，S[n-1，x]）），x=1..9）]；
如果n>3且n mod 3=0，则a[n]：=0
其他的
如果n>5，则X:=[1,3,7,9]，否则X:=[$1..9]fi；
a[n]：=加法（numbeccurse（map（isprime，S[n，x]），true），x=x）；
fi（菲涅耳）
日期：
|
|
|
数学
|
f[n_]：=如果[Mod[n，3]==0&&n>3，0，Block[{ip=IntegerPartitions@n，lng=1+PartitionsP@n，cnt=0，k=1}，While[k<lng，If[Max@ip[[k]]<10，cnt+=Length@Select[FromDigits@#&/@Permutations@ip[k]]，PrimeQ]]；k++]；cnt]]；阵列[f，30](*罗伯特·威尔逊v，2015年6月5日*）
数字总和[n_，b_:10]：=总数[Integer Digits[n，b]]；nextodd[c]：=如果[Length[c]==2，则连接[表[1，{c[[1]]-2}]，{c[2]]+2}]，连接[表[1]，{c[1]]-1}]，}c[2]+1}，删除[c，2]]；a[2]=2；a[n_]：=如果[Mod[n，3]==0&&n>3，0，模[{c，ct}，对于[c=表[1，{n}]；ct=0，True，c=nextodd[c]，如果[PrimeQ[FromDigits[c]]&&DigitSum[FromDigits[c]]==n，ct++]；如果[c[[-1]]>=n-1，则返回[ct]]]]；表[a[n]，{n，20}]
|
|
|
黄体脂酮素
|
（PARI）请参阅链接部分。
（Python）
从集合导入计数器
从sympy.utilities.iterables导入分区，multiset_permutations
从sympy导入isprime
定义A073901号（n） ：如果是isprime（int（''.join（str（d）for d in a））），如果n==3或其他n%3，则返回sum（1 for p in partitions（n，k=9）for a in multiset_permutations（Counter（p）.elements（））））#柴华武，2024年2月21日
|
|
|
交叉参考
|
|
|
|
关键词
|
基础，更多，非n
|
|
|
作者
|
|
|
|
扩展
|
a（20）到a（24）和替代Mathematica编码迪安·希克森2002年9月21日
|
|
|
状态
|
已批准
|
| |
|
|
