[go: up one dir, main page]

login
A240832
Sequence R(n) arising from analysis of structure of A240830.
3
0, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 8, 3, 4, 5, 6, 7, 8, 3, 10, 5, 6, 7, 8, 3, 10, 5, 12, 7, 8, 3, 10, 5, 12, 7, 14, 9, 10, 5, 12, 7, 14, 9, 10, 11, 12, 7, 14, 9, 10, 11, 12, 13, 14, 9, 10, 11, 12, 13, 14, 15, 10, 11, 12, 13, 14, 15, 10, 17, 12, 13, 14, 15, 10, 17, 12, 19, 14, 15, 10, 17, 12, 19, 14, 21, 10, 17
OFFSET
1,3
LINKS
Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, On the behavior of a family of meta-Fibonacci sequences, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See Eq. (2.2) and Table 2.3.
MAPLE
#T_s, k(n) from Callaghan et al. Eq. (2.2).
s:=0; k:=7;
T:=proc(n) option remember; global R, U, s, k; # A240830
if n <= s+k then 1
else
add(U(n-i), i=0..k-1);
fi; end;
U:=proc(n) option remember; global R, T, s, k; # A240831
T(R(n)); end;
R:=proc(n) option remember; global U, T, s, k; # A240832
n-s-T(n-1); end;
t1:=[seq(R(n), n=1..100)];
MATHEMATICA
A240830[n_]:=A240830[n]=If[n<=7, 1, Sum[A240830[A240832[n-i]], {i, 0, 6}]];
A240832[n_]:=A240832[n]=n-A240830[n-1];
Array[A240832, 100] (* Paolo Xausa, Dec 06 2023, after N. J. A. Sloane *)
CROSSREFS
Sequence in context: A037841 A165111 A038387 * A173527 A043267 A167514
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 16 2014
STATUS
approved