Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #13 Feb 09 2022 09:10:44
%S 1,3,7,10,13,19,21,22,29,30,34,37,39,43,46,53,55,57,61,62,66,70,71,79,
%T 82,85,87,89,91,94,101,102,107,111,113,115,118,129,130,131,133,134,
%U 138,139,146,151,154,155,159,163,165,166,173,181,183,186,187,190,193
%N Heinz numbers of strict integer partitions of even numbers. Squarefree numbers whose prime indices sum to an even number.
%C The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
%C From _Peter Munn_, Feb 04 2022: (Start)
%C For every odd squarefree number, s, exactly one of s and 2s is a term.
%C Closed under the commutative operation A350066(.,.).
%C Closed under the commutative operation A059897(.,.) forming a subgroup of the positive integers considered as a group under A059897. As subgroups, this sequence and A028982 are each a transversal of the other.
%C (End)
%F {a(n) : n >= 1} = {A019565(A158704(n)) : n >= 1} = {A073675(A319242(n)) : n >= 1}. - _Peter Munn_, Feb 04 2022
%e 30 is the Heinz number of (3,2,1), which is strict and has even weight, so 30 belongs to the sequence.
%e The sequence of all even-weight strict partitions begins: (), (2), (4), (3,1), (6), (8), (4,2), (5,1), (10), (3,2,1), (7,1), (12), (6,2), (14), (9,1), (16), (5,3), (8,2), (18), (11,1), (5,2,1), (4,3,1).
%t Select[Range[100],And[SquareFreeQ[#],EvenQ[Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]]]&]
%o (PARI) isok(m) = issquarefree(m) && !(vecsum(apply(primepi, factor(m)[,1])) % 2); \\ _Michel Marcus_, Feb 08 2022
%Y Complement of the union of A319242 and A013929.
%Y Intersection of A005117 and A300061.
%Y Cf. A000041, A000720, A001222, A008683, A056239, A296150, A300063.
%Y Cf. A019565, A028982, A059897, A073675, A158704, A350066.
%K nonn
%O 1,2
%A _Gus Wiseman_, Sep 15 2018