A326840 Denominator of A056239(n)/A061395(n).

1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 4, 3, 1, 1, 2, 1, 3, 2, 5, 1, 2, 1, 6, 1, 2, 1, 1, 1, 1, 5, 7, 4, 1, 1, 8, 3, 1, 1, 4, 1, 5, 3, 9, 1, 1, 1, 3, 7, 3, 1, 2, 5, 4, 4, 10, 1, 3, 1, 11, 1, 1, 2, 5, 1, 7, 9, 1, 1, 2, 1, 12, 3, 4, 5, 2, 1, 3, 1, 13, 1, 1, 7

Offset

1,6

Comments

This is a dual form of the average of an integer partition specified by its Heinz number: A326567/A326568.

Links

Table of n, a(n) for n=1..85.

Example

The sequence of fractions begins: 0, 1, 1, 2, 1, 3/2, 1, 3, 2, 4/3, 1, 2, 1, 5/4, 5/3, 4, 1, 5/2, 1, 5/3.

Mathematica

primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Denominator[Table[Total[primeMS[n]]/Max@@primeMS[n], {n, 100}]]

Crossrefs

Positions of 1's are A326836.

Numerators are A326839.

Cf. A001222, A047993, A056239, A061395, A112798, A316413.

Cf. A326567/A326568, A326836, A326845, A326848, A326850.

Sequence in context: A001492 A347049 A054576 * A326153 A199515 A316695

Adjacent sequences: A326837 A326838 A326839 * A326841 A326842 A326843

Keyword

nonn,frac

Author

Gus Wiseman, Jul 26 2019

Status

approved