|
%I #23 Dec 06 2023 14:20:43
%S 1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,1,1,7,1,7,1,1,1,7,1,7,1,7,1,7,1,7,
%T 1,7,1,7,7,7,1,7,1,7,7,7,7,7,1,7,7,7,7,7,7,7,7,7,7,7,7,7,13,7,7,7,7,7,
%U 13,7,13,7,7,7,13,7,13,7,13,7,13,7,13,7,13,7,19,7,13,7,13,7,19,7,19,7,13,7,19
%N Sequence U(n) arising from analysis of structure of A240830.
%H Paolo Xausa, <a href="/A240831/b240831.txt">Table of n, a(n) for n = 2..10000</a>
%H Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, <a href="https://doi.org/10.1137/S0895480103421397">On the behavior of a family of meta-Fibonacci sequences</a>, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See Eq. (2.2) and Table 2.2.
%H <a href="/index/Ho#Hofstadter">Index entries for Hofstadter-type sequences</a>
%p #T_s,k(n) from Callaghan et al. Eq. (2.2).
%p s:=0; k:=7;
%p T:=proc(n) option remember; global R,U,s,k; # A240830
%p if n <= s+k then 1
%p else
%p add(U(n-i),i=0..k-1);
%p fi; end;
%p U:=proc(n) option remember; global R,T,s,k; # A240831
%p T(R(n)); end;
%p R:=proc(n) option remember; global U,T,s,k; # A240832
%p n-s-T(n-1); end;
%p t1:=[seq(U(n),n=2..100)];
%t A240830[n_]:=A240830[n]=If[n<=7,1,Sum[A240831[n-i],{i,0,6}]];
%t A240831[n_]:=A240831[n]=A240830[n-A240830[n-1]];
%t Array[A240831,100,2] (* _Paolo Xausa_, Dec 06 2023, after _N. J. A. Sloane_ *)
%Y Cf. A240830, A240832.
%K nonn
%O 2,14
%A _N. J. A. Sloane_, Apr 16 2014
|
