|
|
A073901号 |
| 具有非零数字和数字和n的素数。 |
|
三
|
|
|
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](*Robert G.Wilson诉2015年6月5日*)
数字总和[n_,b_:10]:=总数[Integer Digits[n,b]];nexttodd[c]:=If[Length[c]==2,Join[Table[1,{c[[1]-2}],{c[[2]+2}],Join[Table[1,{c[[1]-1}],{c[[2]+1},Drop[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)以及从迪安·希克森2002年9月21日
|
|
状态
|
经核准的
|
|
|
|