|
|
A321455
|
|
Number of ways to factor n into factors > 1 all having the same sum of prime indices.
|
|
31
|
|
|
1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
Also the number of multiset partitions of the multiset of prime indices of n with equal block-sums.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The sum of prime indices of n is A056239(n).
|
|
LINKS
|
|
|
EXAMPLE
|
The a(1440) = 6 factorizations into factors all having the same sum of prime indices:
(10*12*12)
(5*6*6*8)
(9*10*16)
(30*48)
(36*40)
(1440)
The a(900) = 5 multiset partitions with equal block-sums:
{{1,1,2,2,3,3}}
{{3,3},{1,1,2,2}}
{{1,2,3},{1,2,3}}
{{1,3},{1,3},{2,2}}
{{3},{3},{1,2},{1,2}}
|
|
MATHEMATICA
|
hwt[n_]:=Total[Cases[FactorInteger[n], {p_, k_}:>PrimePi[p]*k]];
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Table[Length[Select[facs[n], SameQ@@hwt/@#&]], {n, 100}]
|
|
CROSSREFS
|
Cf. A001055, A035470, A056239, A279787, A305551, A321469, A322794, A326515, A326516, A326518, A326534.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|