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 A340715 #24 Jan 17 2021 10:57:17 %S A340715 14,5,1,37033919,14182439039 %N A340715 Least positive number k such that sigma(k+1) = n * sigma(k). %e A340715 n | sigma(a(n)) | sigma(a(n)+1) %e A340715 ----+-------------+-------------- %e A340715 1 | 24 | 24 %e A340715 2 | 6 | 12 %e A340715 3 | 1 | 3 %e A340715 4 | 39940992 | 159763968 %e A340715 5 | 14182439040 | 70912195200 %t A340715 k = 1;n = 1;Print[While[DivisorSigma[1, k + 1] != n*DivisorSigma[1, k], k;k k+]; k] (* _Robert P. P. McKone_, Jan 17 2021 *) %o A340715 (PARI) {a(n) = my(k=1); while(sigma(k+1)!=n*sigma(k), k++); k} %Y A340715 Cf. A000203, A002961, A058072, A067081, A077087, A080371, A340713, A340720. %K A340715 nonn,hard,more %O A340715 1,1 %A A340715 _Seiichi Manyama_, Jan 17 2021