proposed
approved
proposed
approved
editing
proposed
my(bc(n, m, b)=
my(a(n)=bc(n, n, 0) + 1 - numdiv(n));
proposed
editing
editing
proposed
Andrew Howroyd, <a href="/A304709/b304709.txt">Table of n, a(n) for n = 1..500</a>
a(n) = A304712(n) + 1 - A000005(n). - Andrew Howroyd, Nov 02 2019
(PARI)
lista(nn)={local(Cache=Map());
my(excl=vector(nn, n, sum(i=1, n-1, if(gcd(i, n)>1, 2^(n-i)))));
my(b(n, m, b)=
if(n==0, 1,
while(m>n || bittest(b, 0), m--; b>>=1);
my(hk=[n, m, b], z);
if(!mapisdefined(Cache, hk, &z),
z = if(m, self()(n, m-1, b>>1) + self()(n-m, m, bitor(b, excl[m])), 0);
mapput(Cache, hk, z)); z));
my(a(n)=b(n, n, 0) + 1 - numdiv(n));
for(n=1, nn, print1(a(n), ", "))
} \\ Andrew Howroyd, Nov 02 2019
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
The a(6) = 7 integer partitions of 6 whose distinct parts are pairwise coprime are (51), (411), (321), (3111), (2211), (21111), (111111).
The a(6) = 7 integer partitions whose distinct parts are pairwise coprime are (51), (411), (321), (3111), (2211), (21111), (111111).
proposed
editing