|
%I #5 Jun 05 2018 22:36:01
%S 1,1,1,2,1,7,1,4,2,7,1,32,1,7,7,8,1,32,1,32,7,7,1,136,2,7,4,32,1,193,
%T 1,16,7,7,7,322,1,7,7,136,1,193,1,32,32,7,1,560,2,32,7,32,1,136,7,136,
%U 7,7,1,3464,1,7,32,32,7,193,1,32,7,193,1,2852,1,7
%N Number of finite sets of relatively prime positive integers with least common multiple n.
%e The a(6) = 7 sets are {1,6}, {2,3}, {1,2,3}, {1,2,6}, {1,3,6}, {2,3,6}, {1,2,3,6}.
%t Table[Length[Select[Rest[Subsets[Divisors[n]]],And[GCD@@#==1,LCM@@#==n]&]],{n,100}]
%Y Cf. A001055, A071625, A076078, A181819, A275870, A281116, A285573, A285572, A290103, A304818, A305563, A305565, A305566, A305567.
%K nonn
%O 1,4
%A _Gus Wiseman_, Jun 05 2018
|
