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

Author

Gus Wiseman, Jul 26 2019

Keywords

• nonn
• frac

Comments

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

Examples

			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.
		

Crossrefs

Positions of 1's are A326836.

Numerators are A326839.

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

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

Programs

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}]]