cp's OEIS Frontend

A000743 Number of compositions of n into 5 ordered relatively prime parts.

%I A000743 M3852 N1577 #41 Jan 05 2025 19:51:31
%S A000743 1,5,15,35,70,125,210,325,495,700,1000,1330,1820,2305,3060,3750,4830,
%T A000743 5775,7315,8490,10625,12155,14880,16835,20475,22620,27405,30100,35750,
%U A000743 39100,46360,49655,58905,62985,73320,78340,91390,95720,111930,117425
%N A000743 Number of compositions of n into 5 ordered relatively prime parts.
%D A000743 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D A000743 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A000743 Marius A. Burtea, <a href="/A000743/b000743.txt">Table of n, a(n) for n = 5..10000</a>
%H A000743 H. W. Gould, <a href="https://web.archive.org/web/2024*/https://www.fq.math.ca/Scanned/2-4/gould.pdf">Binomial coefficients, the bracket function and compositions with relatively prime summands</a>, Fib. Quart. 2(4) (1964), 241-260.
%H A000743 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F A000743 Möbius transform of binomial(n-1, 4).
%F A000743 G.f.: Sum_{k>=1} mu(k) * x^(5*k) / (1 - x^k)^5. - _Ilya Gutkovskiy_, Feb 05 2020
%p A000743 with(numtheory):
%p A000743 a:= n-> add(mobius(n/d)*binomial(d-1, 4), d=divisors(n)):
%p A000743 seq(a(n), n=5..50);  # _Alois P. Heinz_, Feb 05 2020
%t A000743 a[n_] := Sum[Boole[Divisible[n, k]] MoebiusMu[n/k] Binomial[k - 1, 4], {k, 1, n}]; Table[a[n], {n, 5, 52}] (* _Jean-François Alcover_, Feb 11 2016 *)
%o A000743 (Magma) [&+[MoebiusMu(n div d)*Binomial(d-1, 4):d in Divisors(n)]:n in[5..44]]; // _Marius A. Burtea_, Feb 08 2020
%Y A000743 Cf. A000741, A000742, A023031, A023032, A023033, A023034, A023035.
%K A000743 nonn
%O A000743 5,2
%A A000743 _N. J. A. Sloane_
%E A000743 Offset changed to 5 by _Ilya Gutkovskiy_, Feb 05 2020