A240832 Sequence R(n) arising from analysis of structure of A240830.

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

Author

N. J. A. Sloane, Apr 16 2014

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000
• 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.
• Index entries for Hofstadter-type sequences

Crossrefs

Cf. A240830, A240831.

Programs

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