OFFSET
0,3
COMMENTS
Euro currency has coins and bills of size 1, 2, 5, 10, 20, 50, 100, 200, 500, 1000, 2000, 5000, 10000, 20000, 50000 cents.
Differs from A001313 first at n=100. - Georg Fischer, Oct 06 2018
REFERENCES
R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics. Addison-Wesley, Reading, MA, 1990, p. 316.
G. Pólya and G. Szegő, Problems and Theorems in Analysis, Springer-Verlag, NY, 2 vols., 1972, Vol. 1, p. 1.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..65536
AFP, 500-euro note gets last print run, (2019)
FORMULA
G.f.: 1/((1-x) * (1-x^2) * (1-x^5) * (1-x^10) * (1-x^20) * (1-x^50) * (1-x^100) * (1-x^200) * (1-x^500) * (1-x^1000) * (1-x^2000) * (1-x^5000) * (1-x^10000) * (1-x^20000) * (1-x^50000)).
MAPLE
gf:= 1/expand((1-x) * (1-x^2) * (1-x^5) * (1-x^10) * (1-x^20) * (1-x^50) * (1-x^100) * (1-x^200) * (1-x^500) * (1-x^1000) * (1-x^2000) * (1-x^5000) * (1-x^10000) * (1-x^20000) * (1-x^50000)):
a:= n-> coeff(series(gf, x, n+1), x, n):
seq(a(n), n=0..100);
MATHEMATICA
f = 1/Times@@(1 - x^{1, 2, 5, 10, 20, 50, 100, 200, 500, 1000, 2000, 5000, 10000, 20000, 50000}); a[n_] := SeriesCoefficient[f, {x, 0, n}]; Table[a[n], {n, 1, 61}] (* Jean-François Alcover, Nov 28 2013, after Maple *)
PROG
(PARI) coins(v[..])=my(x='x); prod(i=1, #v, 1/(1-x^v[i]))
Vec(coins(1, 2, 5, 10, 20, 50, 100, 200)+O(x^99)) \\ Charles R Greathouse IV, Jan 24 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Thomas Brendan Murphy (murphybt(AT)tcd.ie), Sep 06 2000
STATUS
approved