This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A326840 #4 Jul 29 2019 13:54:54
%S A326840 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,
%T A326840 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,
%U A326840 7,9,1,1,2,1,12,3,4,5,2,1,3,1,13,1,1,7
%N A326840 Denominator of A056239(n)/A061395(n).
%C A326840 This is a dual form of the average of an integer partition specified by its Heinz number: A326567/A326568.
%e A326840 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.
%t A326840 primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t A326840 Denominator[Table[Total[primeMS[n]]/Max@@primeMS[n],{n,100}]]
%Y A326840 Positions of 1's are A326836.
%Y A326840 Numerators are A326839.
%Y A326840 Cf. A001222, A047993, A056239, A061395, A112798, A316413.
%Y A326840 Cf. A326567/A326568, A326836, A326845, A326848, A326850.
%K A326840 nonn,frac
%O A326840 1,6
%A A326840 _Gus Wiseman_, Jul 26 2019