A357944 If n appears in A357943, a(n) is the smallest k such that A357943(k) = n, otherwise a(n) = -1.

0, 1, 2, 5, 33, 8, 15, 22, 28, 25, 35, 65, 69, 78, 123, 165, 180, 97, 105, 203, 115, 294, 199, 373, 326, 238, 300, 506, 350, 354, 361, 367, 380, 388, 392, 408, 491, 573, 628, 498, 502, 509, 513, 516, 744, 615, 683, 763, 1201, 1072, 906, 1083, 872, 1100, 1113, 1364, 1385, 1438, 1274, 1387

Offset

0,3

Links

Scott R. Shannon, Table of n, a(n) for n = 0..10000

Scott R. Shannon, Image for the first 10000000 terms of A357943.

Mathematica

nn = 1500; c[_] = q[_] = 0; Array[Set[{a[#], c[#], q[#]}, {#, 1, #}] &, 3, 0]; Do[(a[n] = c[#]; c[c[#]]++; If[q[c[#]] == 0, Set[q[c[#]], n]]) &[a[n - a[n - 1] - 1]], {n, 3, nn}]; {0}~Join~TakeWhile[Array[q, nn], # > 0 &] (* Michael De Vlieger, Oct 23 2022 *)

Crossrefs

Cf. A357943.

Sequence in context: A207135 A118325 A224231 * A019037 A019038 A198089

Adjacent sequences: A357941 A357942 A357943 * A357945 A357946 A357947

Keyword

nonn

Author

Scott R. Shannon, Oct 22 2022

Status

approved