|
|
A347318
|
|
Length of row n in A347317.
|
|
2
|
|
|
1, 3, 4, 6, 6, 8, 9, 11, 12, 13, 15, 17, 19, 23, 29, 36, 43, 60, 91, 150, 265, 493, 946, 1848, 3649, 7246, 14437, 28814, 57564, 115059, 230044, 460010, 919938, 1839789, 3679485, 7358874, 14717646, 29435186, 58870261, 117740405, 235480687, 470961245, 941922354, 1883844567
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Block[{c, k, m, r = 0}, c[0] = 1; Prepend[Differences[#], First[#]] &@ Position[{-1}~Join~Reap[Do[k = 0; While[k <= r, If[IntegerQ@ c[k], Set[m, c[k]], Set[c[k], 0]; Set[m, 0]]; If[m > r, r = m]; Sow[m]; If[IntegerQ@ c[m], c[m]++, c[m] = 1]; k++]; Sow[-1]; c[0]++, 32]][[-1, -1]], -1][[All, 1]]] (* Michael De Vlieger, Oct 12 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|