|
%I #5 Apr 13 2019 08:11:43
%S 6,9,10,12,14,15,18,21,22,24,25,26,27,33,34,35,36,38,39,46,48,49,51,
%T 54,55,57,58,62,65,69,72,74,77,81,82,85,86,87,91,93,94,95,96,106,108,
%U 111,115,118,119,121,122,123,129,133,134,141,142,143,144,145,146
%N Heinz numbers of integer partitions such that lesser of the maximum part and the number of parts is 2.
%C The enumeration of these partitions by sum is given by A265283.
%C The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
%e The sequence of terms together with their prime indices begins:
%e 6: {1,2}
%e 9: {2,2}
%e 10: {1,3}
%e 12: {1,1,2}
%e 14: {1,4}
%e 15: {2,3}
%e 18: {1,2,2}
%e 21: {2,4}
%e 22: {1,5}
%e 24: {1,1,1,2}
%e 25: {3,3}
%e 26: {1,6}
%e 27: {2,2,2}
%e 33: {2,5}
%e 34: {1,7}
%e 35: {3,4}
%e 36: {1,1,2,2}
%e 38: {1,8}
%e 39: {2,6}
%e 46: {1,9}
%t Select[Range[300],Min[PrimeOmega[#],PrimePi[FactorInteger[#][[-1,1]]]]==2&]
%Y Cf. A056239, A061395, A093641, A112798, A252464, A257541, A263297, A265283, A325224, A325225, A325227, A325230, A325232.
%K nonn
%O 1,1
%A _Gus Wiseman_, Apr 12 2019
|
