A362134 Novel terms in A360179, in order of appearance.

1, 2, 3, 4, 5, 6, 8, 7, 10, 12, 16, 9, 11, 13, 15, 19, 14, 18, 22, 17, 20, 28, 24, 32, 26, 21, 31, 25, 34, 27, 33, 23, 30, 40, 36, 29, 35, 39, 37, 43, 42, 47, 51, 45, 41, 38, 49, 44, 53, 48, 52, 56, 57, 60, 55, 59, 63, 64, 61, 65, 69, 67, 54, 66, 58, 75, 77, 71, 72, 70, 79, 73, 62, 78, 68, 76, 80, 84

Offset

1,2

Comments

In other words, numbers A360179(n) that do not appear in A360179(1..n-1).

Row maxima of A360179, read as an irregular triangle of rows whose terms strictly increase.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..58188

Michael De Vlieger, Scatterplot of a(n) n = 1..47545 (all novel terms that appear in A360179(1..2^28).

Formula

A362127 contains records in this sequence.

Example

A360179 read as an irregular triangle with rows of length A362135(n):
   n: row n
  --------------
   1: 1;
   2: 1, 2;
   3: 2, 3;
   4: 2, 4;
   5: 3, 5;
   6: 2, 4,  6;
   7: 4, 6,  8;
   8: 4, 7;
   9: 2, 5,  7, 10;
  10: 4, 7, 10, 12;
  11: 6, 8, 12, 16;
  12: 5, 9;
  etc.
Terms in this sequence appear at the end of the rows as consequence of the definition of A360179.

Mathematica

nn = 800;
c[_] := False; h[_] := 0; f[n_] := DivisorSigma[0, n];
a[1] = j = u = w = 1;
{1}~Join~Rest@ Reap[Do[
      If[c[j],
        k = j + f[u]; h[j]++; h[u]--,
        k = f[j]; c[j] = True; h[j]++; Sow[j] ];
      u = Min[u, j]; Set[{a[n], q[k], j}, {k, True, k}];
      While[h[u] == 0, u++], {n, 2, nn}] ][[-1, -1]]

Crossrefs

Cf. A000005, A360179, A362127, A362135.

Sequence in context: A262388 A366948 A297440 * A232895 A274607 A339607

Adjacent sequences: A362131 A362132 A362133 * A362135 A362136 A362137

Keyword

nonn

Author

Michael De Vlieger, Apr 10 2023

Status

approved