%I A147981
%S A147981 0,1,1,1,1,2,2,2,2,3,2,3,3,4,4,4,4,3,3,5,3,3,4,5,5,4,4,4,5,5,5,5,5,7,4,
%T A147981 4,6,4,4,4,8,4,4,6,6,6,4,4,4,4,8,8,4,4,4,6,6,6,6,10,10,10,10,10,10,5,6,
%U A147981 7,4,5,9,9,5,5,8,6,6,7,7,5,5,5,10,10,6,6,6,6,7,5,5,6,8,8,4,4,4,6,8,8,4
%N A147981 A Slow chaotic sequence using A004001 and the modulo three A147952: a(n)=A147952(A004001(n)).
%C A147981 The Fernandez sequence of this has ratio at n=100:1.1521476591741213.
%F A147981 a(n)=A147952(A004001(n)).
%t A147981 (*A004001*) g[0] = 0; g[1] = 1; g[2] = 1; g[n_] := g[n] = g[g[n - 1]] 
               + g[n - g[n - 1]]; (*A147952*) f[0] = 0; f[1] = 1; f[2] = 1; f[n_] 
               := f[n] = f[f[n - 2]] + If[Mod[n, 3] == 0, f[f[n/3]], If[Mod[n, 3] 
               ==1, f[f[(n - 1)/3]], f[n - f[(n - 2)/3]]]]; Table[f[g[n]], {n, 0, 
               100}]
%Y A147981 Sequence in context: A029383 A070098 A029233 this_sequence A051888 A088019 
               A126759
%Y A147981 Adjacent sequences: A147978 A147979 A147980 this_sequence A147982 A147983 
               A147984
%K A147981 nonn
%O A147981 0,6
%A A147981 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 18 2008