cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A316902 Heinz numbers of aperiodic integer partitions whose reciprocal sum is an integer.

This page as a plain text file.
%I A316902 #5 Jul 17 2018 08:09:26
%S A316902 2,18,72,147,162,195,250,288,294,390,500,588,648,780,1125,1152,1176,
%T A316902 1323,1458,1560,1755,2000,2250,2352,2592,2646,3120,3185,3510,4000,
%U A316902 4500,4608,4704,4802,5292,6240,6370,6475,6591,7020,7581,8450,9000,9408,10101,10125
%N A316902 Heinz numbers of aperiodic integer partitions whose reciprocal sum is an integer.
%C A316902 The reciprocal sum of (y_1, ..., y_k) is 1/y_1 + ... + 1/y_k.
%C A316902 The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
%C A316902 A partition is aperiodic if its multiplicities are relatively prime.
%H A316902 Gus Wiseman, <a href="/A051908/a051908.txt">Sequences counting and ranking integer partitions by their reciprocal sums</a>
%e A316902 The sequence of partitions whose Heinz numbers belong to this sequence begins: (1), (221), (22111), (442), (22221), (632), (3331), (2211111), (4421), (6321), (33311), (44211), (2222111).
%t A316902 Select[Range[2,20000],And[GCD@@FactorInteger[#][[All,2]]==1,IntegerQ[Sum[m[[2]]/PrimePi[m[[1]]],{m,FactorInteger[#]}]]]&]
%Y A316902 Cf. A000837, A002966, A051908, A058360, A100953, A296150, A316854, A316855, A316856, A316857, A316888-A316904.
%K A316902 nonn
%O A316902 1,1
%A A316902 _Gus Wiseman_, Jul 16 2018