A358467 Number of 1's that appeared in the n-th step when constructing A030717.

1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 2, 4, 3, 6, 7, 8, 11, 13, 15, 17, 16, 19, 20, 23, 23, 23, 23, 25, 27, 30, 33, 33, 35, 37, 39, 45, 48, 48, 47, 49, 50, 52, 57, 61, 64, 64, 67, 67, 72, 77, 79, 80, 84, 86, 91, 91, 95, 100, 107, 109, 111, 118, 123, 127, 134, 138, 143, 148, 153, 158, 165, 171, 176, 179, 184, 187, 192, 195

Offset: 1

Author

Seiichi Manyama, Nov 18 2022

Keywords

• nonn

Comments

Also first differences of A358466.

Links

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

Crossrefs

Cf. A030717, A358466, A358469.

Programs

Mathematica

nn = 94; c[] = 0; k = a[1] = c[1] = 1; Prepend[Reap[Do[w = Union@ Array[a, k]; t = 0; Do[Set[a[j + k], c[w[[j]]]]; If[a[j + k] == 1, t++], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w]; Sow[t], {n, nn}]][[-1, -1]], 1] (* _Michael De Vlieger, Nov 18 2022 *)