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.

A361516 Indices of records in A361511.

This page as a plain text file.
%I A361516 #10 Apr 09 2023 02:02:11
%S A361516 1,3,5,7,9,12,14,18,21,32,39,47,53,59,67,94,134,170,196,236,256,280,
%T A361516 394,441,455,519,547,589,635,778,809,862,875,946,961,975,1011,1053,
%U A361516 1110,1266,1469,1538,1844,2043,2277,2334,2369,2423,2485,2596,2711,2755,2934,2990,3125,3369,3436,3594,3762,3984,4215,4290,4432,4621,4677,4712,4750,4897
%N A361516 Indices of records in A361511.
%H A361516 Michael De Vlieger, <a href="/A361516/b361516.txt">Table of n, a(n) for n = 1..6811</a> (all in a(n) for n = 1..2^28)
%t A361516 nn = 5000; c[_] = False; f[n_] := DivisorSigma[0, n]; a[1] = m = 1; r = 0; Reap[Do[(If[c[#], a[n] = # + f[a[m]] ; m++, a[n] = f[#]]; c[#] = True; If[# > r, r = #; Sow[n - 1]]) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* _Michael De Vlieger_, Apr 08 2023 *)
%Y A361516 Cf. A361511-A361515, A362095.
%K A361516 nonn
%O A361516 1,2
%A A361516 _N. J. A. Sloane_, Apr 08 2023