|
%I #31 Jan 12 2021 21:36:59
%S 1,0,2,1,3,1,6,1,7,3,7,3,14,3,15,6,14,6,25,6,22,10,25,9,42,8,34,15,37,
%T 15,53,13,48,22,53,17,78,17,65,30,63,24,99,24,88,35,84,30,126,34,103,
%U 45,103,38,166,35,124,57,128,51,184,44,150,67,172,52,218
%N Number of partitions of n into three distinct and mutually relatively prime parts.
%C The Heinz numbers of these partitions are the intersection of A005117 (strict), A014612 (triples), and A302696 (coprime). - _Gus Wiseman_, Oct 14 2020
%H Fausto A. C. Cariboni, <a href="/A220377/b220377.txt">Table of n, a(n) for n = 6..10000</a> (terms 6..1000 from Seiichi Manyama)
%F a(n > 2) = A307719(n) - 1. - _Gus Wiseman_, Oct 15 2020
%e For n=10 we have three such partitions: 1+2+7, 1+4+5 and 2+3+5.
%e From _Gus Wiseman_, Oct 14 2020: (Start)
%e The a(6) = 1 through a(20) = 15 triples (empty column indicated by dot, A..H = 10..17):
%e 321 . 431 531 532 731 543 751 743 753 754 971 765 B53 875
%e 521 541 651 752 951 853 B51 873 B71 974
%e 721 732 761 B31 871 D31 954 D51 A73
%e 741 851 952 972 A91
%e 831 941 B32 981 B54
%e 921 A31 B41 A71 B72
%e B21 D21 B43 B81
%e B52 C71
%e B61 D43
%e C51 D52
%e D32 D61
%e D41 E51
%e E31 F41
%e F21 G31
%e H21
%e (End)
%t Table[Length@Select[ IntegerPartitions[ n, {3}], #[[1]] != #[[2]] != #[[3]] && GCD[#[[1]], #[[2]]] == 1 && GCD[#[[1]], #[[3]]] == 1 && GCD[#[[2]], #[[3]]] == 1 &], {n, 6, 100}]
%t Table[Count[IntegerPartitions[n,{3}],_?(CoprimeQ@@#&&Length[ Union[#]] == 3&)],{n,6,100}] (* _Harvey P. Dale_, May 22 2020 *)
%o (PARI) a(n)=my(P=partitions(n));sum(i=1,#P,#P[i]==3&&P[i][1]<P[i][2]&&P[i][2]<P[i][3]&&gcd(P[i][1],P[i][2])==1&&gcd(P[i][1],P[i][3])==1&&gcd(P[i][2],P[i][3])==1) \\ _Charles R Greathouse IV_, Dec 14 2012
%Y Cf. A015617, A300815.
%Y A023022 is the 2-part version.
%Y A101271 is the relative prime instead of pairwise coprime version.
%Y A220377*6 is the ordered version.
%Y A305713 counts these partitions of any length, with Heinz numbers A302797.
%Y A307719 is the non-strict version.
%Y A337461 is the non-strict ordered version.
%Y A337563 is the case with no 1's.
%Y A337605 is the pairwise non-coprime instead of pairwise coprime version.
%Y A001399(n-6) counts strict 3-part partitions, with Heinz numbers A007304.
%Y A008284 counts partitions by sum and length, with strict case A008289.
%Y A318717 counts pairwise non-coprime strict partitions.
%Y A326675 ranks pairwise coprime sets.
%Y A327516 counts pairwise coprime partitions.
%Y A337601 counts 3-part partitions whose distinct parts are pairwise coprime.
%Y Cf. A000217, A007360, A023023, A051424, A078374, A087087, A302696, A333227, A337485, A337561.
%K nonn
%O 6,3
%A _Carl Najafi_, Dec 13 2012
|
