%I #9 Feb 14 2020 08:02:47
%S 1,2,4,6,8,12,16,18,30,32,60,64,90,128,150,180,210,256,300,360,450,
%T 512,540,600,630,1024,1050,1350,1500,2048,2100,2250,2310,2520,2940,
%U 3150,3780,4096,4200,4410,5880,8192,8820,9450,10500,11550,12600,13230,14700
%N Heinz numbers of widely totally normal integer partitions.
%C First differs from A317246 in having 630.
%C A sequence of positive integers is widely totally normal if either it is all 1's (wide) or it covers an initial interval of positive integers (normal) and has widely totally normal run-lengths.
%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 1: {}
%e 2: {1}
%e 4: {1,1}
%e 6: {1,2}
%e 8: {1,1,1}
%e 12: {1,1,2}
%e 16: {1,1,1,1}
%e 18: {1,2,2}
%e 30: {1,2,3}
%e 32: {1,1,1,1,1}
%e 60: {1,1,2,3}
%e 64: {1,1,1,1,1,1}
%e 90: {1,2,2,3}
%e 128: {1,1,1,1,1,1,1}
%e 150: {1,2,3,3}
%e 180: {1,1,2,2,3}
%e 210: {1,2,3,4}
%e 256: {1,1,1,1,1,1,1,1}
%e 300: {1,1,2,3,3}
%e 360: {1,1,1,2,2,3}
%e For example, starting with (4,3,2,2,1), the partition with Heinz number 630, and repeatedly taking run-lengths gives (4,3,2,2,1) -> (1,1,2,1) -> (2,1,1) -> (1,2) -> (1,1). These are all normal and the last is all 1's, so 630 belongs to the sequence.
%t primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t gnaQ[y_]:=Or[y=={},Union[y]=={1},And[Union[y]==Range[Max[y]],gnaQ[Length/@Split[y]]]];
%t Select[Range[1000],gnaQ[primeMS[#]]&]
%Y Contains all powers of two A000079 and the primorials A002110.
%Y Heinz numbers of normal integer partitions are A055932.
%Y The case of reversed integer partitions is A332276 (this sequence).
%Y The enumeration of these partitions by sum is A332277.
%Y The enumeration of the generalization to compositions is A332279.
%Y The co-strong version is A332290.
%Y The strong version is A332291.
%Y Cf. A007097, A056239, A133808, A181819, A182850, A305732, A317081, A317089, A317090, A317246, A317492, A329747, A332295, A332296.
%K nonn
%O 1,2
%A _Gus Wiseman_, Feb 12 2020
|