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.

A361514 Lengths of rows when A361511 is regarded as an irregular triangle.

This page as a plain text file.
%I A361514 #9 Apr 09 2023 02:01:10
%S A361514 1,2,2,2,2,3,2,4,3,4,3,4,7,3,5,6,6,8,4,6,3,8,6,6,6,9,5,8,6,8,5,7,7,9,
%T A361514 8,9,9,9,12,9,10,10,10,10,14,7,15,11,14,7,14,11,15,9,11,12,10,15,10,
%U A361514 14,16,10,14,11,13,13,15,13,14,15,19,14,13,17,18,12,13,14,13,16
%N A361514 Lengths of rows when A361511 is regarded as an irregular triangle.
%C A361514 Essentially the first differences of A361512.
%H A361514 Michael De Vlieger, <a href="/A361514/b361514.txt">Table of n, a(n) for n = 1..17905</a>
%t A361514 nn = 750; c[_] = False; f[n_] := DivisorSigma[0, n]; a[1] = k = m = 1; MapAt[# + 1 &, #, 1] &@ Reap[Do[(If[c[#], a[n] = # + f[a[m]] ; m++, a[n] = f[#] ; Sow[n - k - 1]; Set[k, n - 1]]; c[#] = True) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* _Michael De Vlieger_, Apr 08 2023 *)
%Y A361514 Cf. A361511-A361513.
%K A361514 nonn
%O A361514 1,2
%A A361514 _N. J. A. Sloane_, Apr 08 2023