OFFSET
1,24
COMMENTS
The first odd term is a(180) = 69, which has, for example, the non-weakly alternating ordered factorization 2*3*5*3*2.
An ordered factorization of n is a finite sequence of positive integers > 1 with product n. Ordered factorizations are counted by A074206.
We define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either.
FORMULA
a(2^n) = A349053(n).
EXAMPLE
The a(n) ordered factorizations for n = 24, 36, 48, 60:
(2*3*4) (2*3*6) (2*3*8) (2*5*6)
(4*3*2) (6*3*2) (2*4*6) (3*4*5)
(2*3*3*2) (6*4*2) (5*4*3)
(3*2*2*3) (8*3*2) (6*5*2)
(2*2*3*4) (10*3*2)
(2*3*4*2) (2*3*10)
(2*4*3*2) (2*2*3*5)
(3*2*2*4) (2*3*5*2)
(4*2*2*3) (2*5*3*2)
(4*3*2*2) (3*2*2*5)
(5*2*2*3)
(5*3*2*2)
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
whkQ[y_]:=And@@Table[If[EvenQ[m], y[[m]]<=y[[m+1]], y[[m]]>=y[[m+1]]], {m, 1, Length[y]-1}];
Table[Length[Select[Join@@Permutations/@facs[n], !whkQ[#]&&!whkQ[-#]&]], {n, 100}]
CROSSREFS
Positions of nonzero terms are A122181.
As compositions with ones allowed these are ranked by A349057.
The complement is counted by A349059.
A345170 counts partitions with an alternating permutation.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 24 2021
STATUS
approved