%I#14 2018年4月30日15:15:50
%S 5、11、13、14、19、29、35、37、38、43、53、59、61、62、67、77、83、85、86、91101107,
%电话109110115125131133134139149155158163173179181182,
%电话:187197203205206211221227229230235245251253259259269
%N与{5,11,13,14,19}模24同余的数。
%C A089911(a(n))=5。
%H<a href=“/index/Rec#order_06”>具有常数的线性递归索引条目,签名(1,0,0,0,1,-1)。
%传真:x*(1+x)*(5*x^4+x^2+x+5)/(x^4+x^3+x^2+x+1)*(x-1)^2)_R.J.Mathar,2013年7月17日
%F From _Wesley Ivan Hurt_,2016年12月28日:(开始)
%当n>6时,F a(n)=a(n-1)+a(n-5)-a(n-6)。
%F a(n)=(120*n-50-(n模型5)+19*。(结束)
%t选择[Range[300],MemberQ[{5,11,13,14,19},Mod[#,24]]&](*或*)LinearRecurrence[{1,0,0,1,-1},{5,11,13,14,19,29},60](*Harvey P.Dale_,2018年4月30日*)
%o(哈斯克尔)
%o a227146 n=a227146_列表!!(n-1)
%o a227146_列表=[5,11,13,14,19]++映射(+24)a227146列表
%Y参见A004771、A089911、A227144。
%K nonn,简单
%O 1,1号机组
%A _Reinhard Zumkeller,2013年7月5日