%我#2018年11月10日08:52:26
%S 0,1,2,3,4,1,2,4,5,1,2,2,4,5,2,3,5,3,4,5,5,6,6,3,4,5,6,1,2,3,4,2,3,1,5,
%温度6,2,3,4,5,6,3,45,6,1,3,5,5,4,6,7,3,6,6,5,7,1,2,3,1,4,4,5,4,3,3,5,
%U 6,7,3,3,4,5,6,7,1,3,4],5,4,4,6,4,,5,5,7,4,3,6,6,7、8,2,3
%N使用1、5、10、25、50美分的硬币支付N美分所需的最小硬币数量。
%H Alois P.Heinz,n的表格,n=0..1000时的a(n)</a>
%H<a href=“/index/Mag#change”>为与更改相关的序列索引条目</a>
%H<a href=“/index/Rec#order_51”>常系数线性递归的索引条目</a>,签名(1,0,0,0,0,0、0、0,0。
%财务总经理:-(6*x^49-x^48-x^47-x^46-x^45+4*x^44-x^43-x^42-x^41-x^40+3*x^39-x^38-x^37-x^36-x^35+4*x*^34-x^33-x^32-x^31-x^30+3*x ^29-x^28-x^27-x^26-x^25+5*x^24-x^23-x^22-x^21-x^20+4*x ^19-x^18-x ^17-x ^16-x ^15+3*x ^14-x ^13-x ^12-x ^11-x ^10+4*x ^9-x ^8-x ^7-x ^6-x ^5+3*x ^4-x ^3-x ^2-x-1)*x/(x ^51-x ^50-x+1)-_Alois P.Heinz,2014年8月4日
%t f[n_]:=总商[Most[FoldList[Mod,n,{50,25,10,5,1}]],{50,15,10,5,1}]];表[f[n],{n,1,84}](*_Geoffrey Critzer_,2013年5月4日*)
%t表[Min[Total/@FrobeniusSolve[{1,5,10,25,50},n]],{n,0110}](*哈维·P·戴尔,2018年11月10日*)
%Y参考A053344。
%K nonn,简单
%0、3
%弗兰克·J·斯塔德曼(df6s(AT)HRZPUB.th-darmstadt.de)
|