OFFSET
1,2
COMMENTS
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
LINKS
EXAMPLE
The a(1) = 1 through a(8) = 11 factorizations:
() (4) (9) (16) (25) (36) (49) (64)
(2*2) (3*3) (2*8) (5*5) (4*9) (7*7) (8*8)
(4*4) (6*6) (2*32)
(2*2*4) (2*18) (4*16)
(2*2*2*2) (3*12) (2*4*8)
(2*2*9) (4*4*4)
(2*3*6) (2*2*16)
(3*3*4) (2*2*2*8)
(2*2*3*3) (2*2*4*4)
(2*2*2*2*4)
(2*2*2*2*2*2)
MAPLE
b:= proc(n, k) option remember; `if`(n>k, 0, 1)+`if`(isprime(n), 0,
add(`if`(d>k, 0, b(n/d, d)), d=numtheory[divisors](n) minus {1, n}))
end:
a:= proc(n) option remember; b((l-> mul(ithprime(i)^l[i], i=1..nops(l)))(
sort(map(i-> i[2], ifactors(n^2)[2]), `>`))$2)
end:
seq(a(n), n=1..76); # Alois P. Heinz, Oct 14 2021
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Table[Length[facs[n^2]], {n, 25}]
PROG
(PARI)
CROSSREFS
The restriction to powers of 2 is A058696.
The additive version (partitions) is A072213.
A001055 counts factorizations.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 23 2021
STATUS
approved