|
%I #21 Dec 12 2016 04:54:04
%S 1,1,1,3,3,3,5,5,7,5,7,7,9,9,9,11,11,13,11,15,13,17,13,17,15,19,17,19,
%T 17,21,19,23,19,23,21,25,23,25,25,27,27,27,29,29,31,29,33,31,35,31,37,
%U 33,39,33,41,35,43,35,43,37,45,39,45,39,47,41,49,41,49,43,51,45,51,45
%N a(n)=a(n-a(n-1))+a(n-1-a(n-2))+a(n-2-a(n-3)), n>3. a(1)=a(2)=a(3)=1.
%D Sequence proposed by Reg Allenby.
%D 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 T_{0,3} with initial values 1,1,1, as in Fig. 1.6. - _N. J. A. Sloane_, Apr 16 2014
%H N. J. A. Sloane, <a href="/A046702/b046702.txt">Table of n, a(n) for n = 1..20000</a>
%H <a href="/index/Ho#Hofstadter">Index entries for Hofstadter-type sequences</a>
%p #T_s,k(n) from Callaghan et al. Eq. (1.6). - From _N. J. A. Sloane_, Apr 16 2014
%p s:=0; k:=3;
%p a:=proc(n) option remember; global s,k;
%p if n <= 2 then 1
%p elif n = 3 then 1
%p else
%p add(a(n-i-s-a(n-i-1)),i=0..k-1);
%p fi; end;
%p t1:=[seq(a(n),n=1..100)];
%t a[n_] := a[n] = a[n-a[n-1]] + a[n-1-a[n-2]] + a[n-2-a[n-3]]; a[1] = a[2] = a[3] = 1; Array[a, 80] (* _Jean-François Alcover_, Dec 12 2016 *)
%Y Cf. A240833, A240834.
%Y Callaghan et al. (2005)'s sequences T_{0,k}(n) for k=1 through 7 are A000012, A046699, A046702, A240835, A241154, A241155, A240830.
%K nonn,look
%O 1,4
%A _R. K. Guy_
%E Corrected and extended by Michael Somos
|
