# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a001301
Showing 1-1 of 1

%I A001301 #41 Dec 19 2021 09:55:17
%S A001301 1,1,2,2,3,4,5,6,7,8,11,12,15,16,19,22,25,28,31,34,40,43,49,52,58,65,
%T A001301 71,78,84,91,102,109,120,127,138,151,162,175,186,199,217,230,248,261,
%U A001301 279,300,318,339,357,378,406,427,455,476,504,536,564,596,624,656
%N A001301 Number of ways of making change for n cents using coins of 1, 2, 5, 10, 25 cents.
%C A001301 Number of partitions of n into parts 1, 2, 5, 10, and 25. - _Joerg Arndt_, Sep 05 2014
%D A001301 R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics. Addison-Wesley, Reading, MA, 1990, p. 316.
%D A001301 G. Pólya and G. Szegő, Problems and Theorems in Analysis, Springer-Verlag, NY, 2 vols., 1972, Vol. 1, p. 1.
%H A001301 T. D. Noe, <a href="/A001301/b001301.txt">Table of n, a(n) for n = 0..1000</a>
%H A001301 H. Bottomley, <a href="/A000008/a000008.gif">Initial terms of A000008, A001301, A001302, A001312, A001313</a>
%H A001301 INRIA Algorithms Project, <a href="http://ecs.inria.fr/services/structure?nbr=177">Encyclopedia of Combinatorial Structures 177</a>
%H A001301 <a href="/index/Rec#order_43">Index entries for linear recurrences with constant coefficients</a>, signature (1, 1, -1, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, -1, 1, 1, -1, 0, 0, 0, 0, 0, 0, 1, -1, -1, 1, 0, -1, 1, 1, -1, 0, -1, 1, 1, -1, 0, 1, -1, -1, 1).
%H A001301 <a href="/index/Mag#change">Index entries for sequences related to making change.</a>
%F A001301 G.f.: 1/((1-x)*(1-x^2)*(1-x^5)*(1-x^10)*(1-x^25)).
%p A001301 M := Matrix(43, (i,j)-> if (i=j-1) or (j=1 and member(i, [1, 2, 5, 8, 10, 13, 16, 17, 25, 28, 31, 32, 36, 37, 40, 43])) then 1 elif j=1 and member(i, [3, 6, 7, 11, 12, 15, 18, 26, 27, 30, 33, 35, 38, 41, 42]) then -1 else 0 fi); a := n -> (M^(n))[1,1]; seq (a(n), n=0..51); # _Alois P. Heinz_, Jul 25 2008
%t A001301 CoefficientList[ Series[ 1 / ((1 - x)(1 - x^2)(1 - x^5)(1 - x^10)(1 - x^25)), {x, 0, 55} ], x ]
%t A001301 Table[Length[FrobeniusSolve[{1,2,5,10,25},n]],{n,0,60}] (* _Harvey P. Dale_, Jan 19 2020 *)
%o A001301 (PARI) Vec(1/((1-x)*(1-x^2)*(1-x^5)*(1-x^10)*(1-x^25)) + O(x^100)) \\ _Michel Marcus_, Sep 05 2014
%K A001301 nonn
%O A001301 0,3
%A A001301 _N. J. A. Sloane_

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE