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.

A319334 Nonprime Heinz numbers of integer partitions whose sum is equal to their LCM.

This page as a plain text file.
%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