cp's OEIS Frontend

A103775 Number of ways to write n! as product of distinct squarefree numbers.

%I A103775 #22 Jan 01 2024 11:30:29
%S A103775 1,1,2,0,1,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%T A103775 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U A103775 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
%N A103775 Number of ways to write n! as product of distinct squarefree numbers.
%C A103775 From _Gus Wiseman_, Aug 23 2020: (Start)
%C A103775 Also the number of set-systems (sets of sets) whose multiset union is the multiset of prime factors of n!. For example, the a(1) = 1 through a(7) = 3 set-systems (empty columns indicated by dots) are:
%C A103775   0  {1}  {1,2}    .  {1},{1,2},{1,3}  .  {1},{1,2},{1,3},{1,2,4}
%C A103775           {1},{2}                         {1},{1,2},{1,4},{1,2,3}
%C A103775                                           {1},{2},{1,2},{1,3},{1,4}
%C A103775 (End)
%H A103775 <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>.
%F A103775 a(n) = 0 for n > 7;
%F A103775 a(n) = A050326(A000142(n)).
%e A103775 n=7, 7! = 1*2*3*4*5*6*7 = 5040 = 2*2*2*2*3*3*5*7: a(7) = #{2*3*6*10*14, 2*6*10*42, 2*6*14*30} = 3.
%t A103775 yst[n_]:=yst[n]=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[yst[n/d],Min@@#>d&]],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
%t A103775 Table[Length[yst[n!]],{n,15}] (* _Gus Wiseman_, Aug 21 2020 *)
%Y A103775 A103774 is the non-strict version.
%Y A103775 A337073 is the version for superprimorials, with non-strict version A337072.
%Y A103775 A001055 counts factorizations.
%Y A103775 A045778 counts strict factorizations.
%Y A103775 A048656 counts squarefree divisors of factorials.
%Y A103775 A050320 counts factorizations into squarefree numbers.
%Y A103775 A050326 counts strict factorizations into squarefree numbers.
%Y A103775 A050342 counts set-systems by total sum.
%Y A103775 A076716 counts factorizations of factorials.
%Y A103775 A116539 counts set-systems covering an initial interval.
%Y A103775 A157612 counts strict factorizations of factorials.
%Y A103775 Cf. A000110, A005117, A008480, A089259, A116540, A124010, A318360.
%Y A103775 Factorial numbers: A000142, A007489, A022559, A027423, A071626, A325272, A325617, A336498.
%K A103775 nonn
%O A103775 1,3
%A A103775 _Reinhard Zumkeller_, Feb 15 2005