cp's OEIS Frontend

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.

A340715 Least positive number k such that sigma(k+1) = n * sigma(k).

This page as a plain text file.
%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