OFFSET
1,2
COMMENTS
First differs from A323306 in having 216.
We define the omega-sequence of n (row n of A323023) to have length A323014(n) = adjusted frequency depth of n, and the k-th term is Omega(red^{k-1}(n)), where Omega = A001222 and red^{k} is the k-th functional iteration of red = A181819, defined by red(n = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of n. For example, we have 180 -> 18 -> 6 -> 4 -> 3, so the omega-sequence of 180 is (5,3,2,2,1).
Also Heinz numbers of integer partitions of whose omega-sequence is strict (counted by A325250). The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
EXAMPLE
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
11: {5}
13: {6}
16: {1,1,1,1}
17: {7}
19: {8}
23: {9}
25: {3,3}
27: {2,2,2}
29: {10}
31: {11}
32: {1,1,1,1,1}
36: {1,1,2,2}
MATHEMATICA
omseq[n_Integer]:=If[n<=1, {}, Total/@NestWhileList[Sort[Length/@Split[#1]]&, Sort[Last/@FactorInteger[n]], Total[#]>1&]];
Select[Range[100], UnsameQ@@omseq[#]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 16 2019
STATUS
approved