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 A319334 #5 Sep 19 2018 09:17:30 %S A319334 30,198,264,273,364,490,525,630,700,840,918,1120,1224,1495,1632,1794, %T A319334 2392,2420,2750,3105,3450,3726,4140,4263,4400,4466,4921,4968,5481, %U A319334 5520,5684,6327,6624,7030,7040,7308,8436,8832,9744,11248,12992,14079,14450,14993 %N A319334 Nonprime Heinz numbers of integer partitions whose sum is equal to their LCM. %C A319334 The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k). %e A319334 The sequence of all non-singleton integer partitions whose sum is equal to their LCM begins: (321), (5221), (52111), (642), (6411), (4431), (4332), (43221), (43311), (432111), (72221), (4311111), (722111), (963), (7211111), (9621). %t A319334 primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; %t A319334 Select[Range[2,1000],And[!PrimeQ[#],LCM@@primeMS[#]==Total[primeMS[#]]]&] %Y A319334 Cf. A067538, A074761, A143773, A290103, A305566, A316429, A316431, A316432, A316433, A317624, A319315, A319333. %K A319334 nonn %O A319334 1,1 %A A319334 _Gus Wiseman_, Sep 17 2018