A328966 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A328966

Number of strict factorizations of n with integer average.

1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 4, 1, 1, 2, 2, 1, 1, 1, 3, 2, 1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 3, 1, 1, 5, 1, 1, 2, 2, 1, 1, 2, 3, 2, 1, 1, 5, 1, 1, 3, 3, 2, 1, 1, 2, 2, 1, 1, 5, 1, 1, 3, 2, 2, 2, 1, 5, 2, 1, 1, 4, 2, 1, 2, 3

(list; graph; refs; listen; history; text; internal format)

OFFSET

2,7

LINKS

Table of n, a(n) for n=2..88.

EXAMPLE

The a(n) factorizations for n = 2, 8, 24, 48, 96:

(2) (8) (24) (32) (48) (96)

(2*4) (4*6) (4*8) (6*8) (2*48)

(2*12) (2*16) (2*24) (4*24)

(2*3*4) (4*12) (6*16)

(2*4*6) (8*12)

(3*4*8)

(2*3*16)

(2*4*12)

MATHEMATICA

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], UnsameQ@@#&&IntegerQ[Mean[#]]&]], {n, 2, 100}]

CROSSREFS

The non-strict version is A326622.

Partitions with integer average are A067538.

Strict partitions with integer average are A102627.

Heinz numbers of partitions with integer average are A316413.

Factorizations with integer geometric mean are A326028.

Cf. A001055, A051293, A078174, A078175, A326515, A326567/A326568, A326619/A326620, A326621, A326625.

Sequence in context: A072273 A157230 A034380 * A077479 A335225 A070106

Adjacent sequences: A328963 A328964 A328965 * A328967 A328968 A328969

KEYWORD

nonn

AUTHOR

Gus Wiseman, Nov 16 2019

STATUS

approved