OFFSET
1,4
COMMENTS
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}]]]];
Numerator[Table[Total[primeMS[n]]/Max@@primeMS[n], {n, 100}]]
KEYWORD
nonn,frac
AUTHOR
Gus Wiseman, Jul 26 2019
STATUS
approved