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 A347203 #13 Nov 20 2021 18:03:38
%S A347203 546,45136,739648,5752422,3053080576,781678084096,12506920910848,
%T A347203 209831713740735643648,241919495232854688763577028051799638016
%N A347203 Numbers k for which sigma(k)/k = 32/13.
%C A347203 This sequence will contain terms of the form 91*P, where P is a perfect number (A000396) not divisible by 7 or 13. Proof: sigma(91*P)/(91*P) = sigma(91)*sigma(P)/(91*P) = 112*(2*P)/(91*P) = 32/13. QED.
%C A347203 Terms ending in "6" or "48" have this form. Example: a(n) = 91*A000396(n) for n = 1, 5, 6, 7, 8, 9 and a(n) = 91*A000396(n+1) for n = 2, 3.
%H A347203 G. P. Michon, <a href="http://www.numericana.com/answer/numbers.htm#multiperfect">Multiperfect Numbers and Hemiperfect Numbers</a>
%H A347203 Walter Nissen, <a href="http://upforthecount.com/math/abundance.html">Abundancy: Some Resources (preliminary version 4)</a>
%H A347203 Walter Nissen, <a href="http://upforthecount.com/math/ffp8.html">Primitive Friendly Pairs with friends < 2^34 with denom < 20000</a>
%e A347203 5752422 is a term, since sigma(5752422)/5752422 = 14159808/5752422 = 32/13.
%t A347203 Select[Range[5*10^8], DivisorSigma[1, #]/# == 32/13 &]
%t A347203 Do[If[DivisorSigma[1, k]/k == 32/13, Print[k]], {k, 5*10^8}]
%Y A347203 Cf. A000203, A000396.
%Y A347203 Subsequence of A005101.
%K A347203 nonn,more
%O A347203 1,1
%A A347203 _Timothy L. Tiffin_, Aug 22 2021
%E A347203 a(8)-a(9) from _Michel Marcus_, Aug 23 2021