login
Indices of novel terms in A361511.
4

%I #9 Apr 08 2023 11:43:51

%S 1,3,5,7,9,12,14,18,21,25,28,32,39,42,47,53,59,67,71,77,80,88,94,100,

%T 106,115,120,128,134,142,147,154,161,170,178,187,196,205,217,226,236,

%U 246,256,266,280,287,302,313,327,334,348,359,374,383,394,406,416,431

%N Indices of novel terms in A361511.

%H Michael De Vlieger, <a href="/A361512/b361512.txt">Table of n, a(n) for n = 1..17905</a> (all terms m <= 2^24)

%t nn = 432; c[_] = False; f[n_] := DivisorSigma[0, n]; a[1] = m = 1; Reap[Do[(If[c[#], a[n] = # + f[a[m]] ; m++, a[n] = f[#] ; Sow[n - 1]]; c[#] = True) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* _Michael De Vlieger_, Apr 08 2023 *)

%Y Cf. A361511.

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Apr 08 2023