A240834 Sequence R(n) arising from analysis of structure of A046702.

0, 1, 2, 3, 2, 3, 4, 3, 4, 3, 6, 5, 6, 5, 6, 7, 6, 7, 6, 9, 6, 9, 6, 11, 8, 11, 8, 11, 10, 13, 10, 13, 10, 15, 12, 15, 12, 15, 14, 15, 14, 15, 16, 15, 16, 15, 18, 15, 18, 15, 20, 15, 20, 15, 22, 15, 22, 15, 24, 17, 24, 17, 24, 19, 26, 19, 26, 19, 28, 21, 28, 21, 28, 23, 30, 23, 30, 23, 32, 23, 32, 23, 34, 25, 34, 25, 34

Offset: 1

Author

N. J. A. Sloane, Apr 16 2014

Keywords

• nonn

References

• Callaghan, Joseph, 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. (3.1) and Table 3.1.

Links

• Index entries for Hofstadter-type sequences

Crossrefs

Cf. A046702, A240833.

Programs

Maple

#T_s,k(n) from Callaghan et al. Eq. (3.1).
s:=0; k:=3;
T:=proc(n) option remember; global R,U,s,k; # A046702
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; # A240833
T(R(n)); end;
R:=proc(n) option remember; global U,T,s,k; # A240834
n-s-T(n-1); end;
t1:=[seq(R(n),n=1..100)];