A358467 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,14

COMMENTS

Also first differences of A358466.

LINKS

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

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 *)

CROSSREFS

Cf. A030717, A358466, A358469.

Sequence in context: A316963 A320672 A367262 * A006016 A227413 A217122

Adjacent sequences: A358464 A358465 A358466 * A358468 A358469 A358470

KEYWORD

nonn

AUTHOR

Seiichi Manyama, Nov 18 2022

STATUS

approved