A362132 Records in A362131.

2, 3, 4, 5, 6, 7, 9, 11, 13, 14, 17, 20, 21, 23, 29, 35, 37, 38, 44, 46, 50, 94, 100, 120, 121, 124, 125, 136, 139, 140, 142, 144, 148, 178, 185, 186, 187, 189, 193, 195, 197, 201, 203, 209

Offset: 1

Author

Michael De Vlieger, Apr 10 2023

Keywords

• nonn
• more

Comments

No more records in A362131(n) for n <= 2^28.

Links

• Michael De Vlieger, Plot (log_2 A362133(n), a(n)) at (x, y).

Crossrefs

Cf. A360179, A362131, A362133.

Programs

Mathematica

nn = 2^20;
c[] := False; q[] := False; h[] := 0; f[n] := DivisorSigma[0, n];
a[1] = j = u = w = 1;
Reap[Do[
    If[c[j],
      k = j + f[u]; h[j]++; h[u]--,
      k = f[j]; c[j] = True; h[j]++ ];
    u = Min[u, j]; Set[{a[n], q[k], j}, {k, True, k}];
    While[h[u] == 0, u++];
    If[k == w, While[q[w], w++]; Sow[w]], {n, 2, nn}] ][[-1, -1]]