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.
%I A316857 #6 Jul 15 2018 13:26:27
%S A316857 2,3,5,7,9,11,13,17,19,23,29,31,37,41,43,47,49,53,59,61,65,67,71,73,
%T A316857 79,83,89,97,101,103,107,109,113,125,127,131,137,139,147,149,151,157,
%U A316857 163,167,169,173,179,181,191,193,195,197,199,211,223,227,229,233,239
%N A316857 Heinz numbers of integer partitions whose reciprocal sum is the reciprocal of an integer.
%C A316857 The reciprocal sum of (y_1, ..., y_k) is 1/y_1 + ... + 1/y_k.
%C A316857 The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
%t A316857 Select[Range[2,100],IntegerQ[1/Sum[m[[2]]/PrimePi[m[[1]]],{m,FactorInteger[#]}]]&]
%Y A316857 Cf. A000041, A051908, A056239, A058360, A072411, A296150, A316854, A316855, A316856.
%K A316857 nonn
%O A316857 1,1
%A A316857 _Gus Wiseman_, Jul 14 2018