OFFSET
1,1
COMMENTS
EXAMPLE
The sequence of terms together with their prime indices begins:
4: {1,1} 33: {2,5} 64: {1,1,1,1,1,1}
6: {1,2} 34: {1,7} 65: {3,6}
8: {1,1,1} 35: {3,4} 66: {1,2,5}
9: {2,2} 38: {1,8} 69: {2,9}
10: {1,3} 39: {2,6} 70: {1,3,4}
14: {1,4} 42: {1,2,4} 72: {1,1,1,2,2}
15: {2,3} 46: {1,9} 74: {1,12}
16: {1,1,1,1} 48: {1,1,1,1,2} 77: {4,5}
21: {2,4} 49: {4,4} 78: {1,2,6}
22: {1,5} 51: {2,7} 80: {1,1,1,1,3}
25: {3,3} 55: {3,5} 81: {2,2,2,2}
26: {1,6} 57: {2,8} 82: {1,13}
27: {2,2,2} 58: {1,10} 84: {1,1,2,4}
30: {1,2,3} 60: {1,1,2,3} 85: {3,7}
32: {1,1,1,1,1} 62: {1,11} 86: {1,14}
For example, the factorizations of 48 with (2) and (3) equal are: (2*2*2*6), (2*2*3*4), (2*4*6), (3*4*4), but since none of these has length 2, the sequence contains 48.
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Select[Range[100], Select[facs[#], #=={}||Length[#]==PrimeNu[Times@@#]==Max[PrimeOmega/@#]&]=={}&]
CROSSREFS
Positions of zeros in A340655.
The complement is A340657.
A001055 counts factorizations.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A045778 counts strict factorizations.
A303975 counts distinct prime factors in prime indices.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340596 counts co-balanced factorizations.
- A340597 lists numbers with an alt-balanced factorization.
- A340598 counts balanced set partitions.
- A340599 counts alt-balanced factorizations.
- A340600 counts unlabeled balanced multiset partitions.
- A340652 counts unlabeled twice-balanced multiset partitions.
- A340653 counts balanced factorizations.
- A340654 counts cross-balanced factorizations.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 16 2021
STATUS
approved