提出
经核准的
编辑
A081308号(a(n))=1。
囊性纤维变性。A000040美元,A003586号,A081308号, A081313号, 子序列 属于 A081311号.
的后续A081311号.
nmax=1000;
S=选择[Range[nmax],Max[FactorInteger[#][[All,1]]<=3&];
A081308号[n_]:=计数[TakeWhile[S,#<n&],S_/;PrimeQ[n-s]];
选择[范围[nmax],A081308号[#] == 1 &] (*让-弗朗索瓦·奥尔科弗2021年10月13日*)
sp3sQ[n_]:=长度[Select[Integer Partitions[n,{2}],(PrimeQ[#[[1]]]&&Max[FactorInteger[#[2]]][[All,1]]]<4)||(PrimeQ[#[[2]]]&&Max[CFactorIntiger[#[1]][[Pall,1]]]<4)&]=1;选择[Range[500],sp3sQ]/。(5->无)(*哈维·P·戴尔2019年2月5日*)
_莱因哈德·祖姆凯勒_, , <a href=“/A081312号/b081312.txt“>n表,n=1..10000时,a(n)</a>
OEIS服务器: https://oeis.org/edit/global/1934
_莱因哈德·祖姆凯勒, _, <a href=“/A081312号/b081312.txt“>n表,n=1..10000时,a(n)</a>
OEIS服务器: https://oeis.org/edit/global/1866