[go: up one dir, main page]

login
Revision History for A296131 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Number of twice-factorizations of n where the first factorization is strict and the latter factorizations are constant, i.e., type (P,Q,R).
(history; published version)
#6 by N. J. A. Sloane at Tue Dec 19 02:40:26 EST 2017
STATUS

reviewed

approved

#5 by Robert G. Wilson v at Thu Dec 07 10:47:57 EST 2017
STATUS

proposed

reviewed

#4 by Gus Wiseman at Tue Dec 05 14:48:32 EST 2017
STATUS

editing

proposed

#3 by Gus Wiseman at Tue Dec 05 14:48:18 EST 2017
NAME

Number of twice-factorizations of n of where the first factorization is strict and the latter factorizations are constant, i.e., type (P,Q,R).

#2 by Gus Wiseman at Tue Dec 05 13:46:11 EST 2017
NAME

allocated for Gus WisemanNumber of twice-factorizations of n of type (P,Q,R).

DATA

1, 1, 1, 2, 1, 2, 1, 4, 2, 2, 1, 4, 1, 2, 2, 5, 1, 4, 1, 4, 2, 2, 1, 8, 2, 2, 4, 4, 1, 5, 1, 9, 2, 2, 2, 9, 1, 2, 2, 8, 1, 5, 1, 4, 4, 2, 1, 13, 2, 4, 2, 4, 1, 8, 2, 8, 2, 2, 1, 11, 1, 2, 4, 16, 2, 5, 1, 4, 2, 5, 1, 18, 1, 2, 4, 4, 2, 5, 1, 13, 5, 2, 1, 11, 2

OFFSET

1,4

COMMENTS

a(n) is the number of ways to choose a perfect divisor of each factor in a strict factorization of n.

FORMULA

Dirichlet g.f.: Product_{n > 1}(1 + A089723(n)/n^s).

EXAMPLE

The a(24) = 8 twice-factorizations: (2)*(3)*(2*2), (2)*(3)*(4), (2)*(12), (3)*(2*2*2), (3)*(8), (2*2)*(6), (4)*(6), (24).

MATHEMATICA

sfs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[sfs[n/d], Min@@#>d&]], {d, Rest[Divisors[n]]}]];

Table[Sum[Product[DivisorSigma[0, GCD@@FactorInteger[d][[All, 2]]], {d, fac}], {fac, sfs[n]}], {n, 100}]

KEYWORD

allocated

nonn

AUTHOR

Gus Wiseman, Dec 05 2017

STATUS

approved

editing

#1 by Gus Wiseman at Tue Dec 05 13:46:11 EST 2017
NAME

allocated for Gus Wiseman

KEYWORD

allocated

STATUS

approved