OFFSET
1,7
FORMULA
Conjecture: if a(k) is the fixed point of the morphism 0->R(n), 1->R(n)0, then the partial sum of a(k) is the Hofstadter-like sequence b(k): b(0)=0, b(k) = k - b(floor(b(k-1)/n)), i.e., the partial sum of the n-th row of A368281 is the n-th row of A368282. The cases n=1 and n=2 are known to be true (see A005206, A286389).
EXAMPLE
Table begins:
k
n=1: 0, 1, 1, 2, 3, 3, 4, 4, 5, 6, 6, 7, 8, 8, 9, 9, 10, 11, 11, 12, ...
n=2: 0, 1, 2, 2, 3, 4, 4, 5, 6, 7, 8, 8, 9, 10, 10, 11, 12, 13, 14, 14, ...
n=3: 0, 1, 2, 3, 3, 4, 5, 6, 6, 7, 8, 9, 9, 10, 11, 12, 13, 14, 15, 15, ...
n=4: 0, 1, 2, 3, 4, 4, 5, 6, 7, 8, 8, 9, 10, 11, 12, 12, 13, 14, 15, 16, ...
n=5: 0, 1, 2, 3, 4, 5, 5, 6, 7, 8, 9, 10, 10, 11, 12, 13, 14, 15, 15, 16, ...
n=6: 0, 1, 2, 3, 4, 5, 6, 6, 7, 8, 9, 10, 11, 12, 12, 13, 14, 15, 16, 17, ...
n=7: 0, 1, 2, 3, 4, 5, 6, 7, 7, 8, 9, 10, 11, 12, 13, 14, 14, 15, 16, 17, ...
MATHEMATICA
a[n_, k_] := a[n, k] = Module[{r}, If[k == 0, Return[0]]; r = k - a[n, Quotient[a[n, k - 1], n]]; r];
Flatten[Table[a[n - k + 1, k - 1], {n, 0, 13}, {k, n, 1, -1}]] (* Robert P. P. McKone, Dec 20 2023 *)
PROG
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Chai Wah Wu, Dec 19 2023
STATUS
approved