The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A073576 Number of partitions of n into squarefree parts. 53
 1, 1, 2, 3, 4, 6, 9, 12, 16, 21, 28, 36, 47, 60, 76, 96, 120, 150, 185, 228, 280, 342, 416, 504, 608, 731, 877, 1048, 1249, 1484, 1759, 2079, 2452, 2885, 3387, 3968, 4640, 5413, 6304, 7328, 8504, 9852, 11395, 13159, 15172, 17468, 20082, 23056, 26434, 30267 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 COMMENTS Euler transform of the absolute values of A008683. - Tilman Neumann, Dec 13 2008 Euler transform of A008966. - Vaclav Kotesovec, Mar 31 2018 LINKS Alois P. Heinz, Table of n, a(n) for n = 0..10000 FORMULA G.f.: 1/Product_{k>0} (1-x^A005117(k)). a(n) = 1/n*Sum_{k=1..n} A048250(k)*a(n-k). a(n) = A000041(n) - A114374(n) - A117395(n), n>0. - Reinhard Zumkeller, Mar 11 2006 G.f.: 1 + Sum_{i>=1} mu(i)^2*x^i / Product_{j=1..i} (1 - mu(j)^2*x^j). - Ilya Gutkovskiy, Jun 05 2017 a(n) ~ exp(2*sqrt(n)) / (4*Pi^(3/2)*n^(1/4)). - Vaclav Kotesovec, Mar 24 2018 MAPLE with(numtheory): a:= proc(n) option remember; `if`(n=0, 1, add(add(d* abs(mobius(d)), d=divisors(j)) *a(n-j), j=1..n)/n) end: seq(a(n), n=0..60); # Alois P. Heinz, Mar 05 2015 MATHEMATICA Table[Length[Select[Boole /@ Thread /@ SquareFreeQ /@ IntegerPartitions[n], FreeQ[#, 0] &]], {n, 48}] (* Jayanta Basu, Jul 02 2013 *) a[n_] := a[n] = If[n==0, 1, Sum[Sum[d*Abs[MoebiusMu[d]], {d, Divisors[j]}] * a[n-j], {j, 1, n}]/n]; Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Oct 10 2015, after Alois P. Heinz *) nmax = 60; CoefficientList[Series[Exp[Sum[Sum[Abs[MoebiusMu[k]] * x^(j*k) / j, {k, 1, Floor[nmax/j] + 1}], {j, 1, nmax}]], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 31 2018 *) PROG (Haskell) a073576 = p a005117_list where p _ 0 = 1 p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m -- Reinhard Zumkeller, Jun 01 2015 CROSSREFS Cf. A058647. Cf. A087188. Cf. A225244. Cf. A114374. Sequence in context: A060729 A229169 A155510 * A186115 A187020 A058647 Adjacent sequences: A073573 A073574 A073575 * A073577 A073578 A073579 KEYWORD nonn AUTHOR Vladeta Jovovic, Aug 27 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 21 03:13 EST 2024. Contains 370219 sequences. (Running on oeis4.)