|
%I #11 Aug 31 2023 10:53:26
%S 0,1,2,0,1,0,0,1,2,0,1,1,0,1,2,0,1,0,0,1,2,0,1,2,0,1,2,0,1,0,0,1,2,0,
%T 1,1,0,1,2,0,1,0,0,1,2,0,1,0,0,1,2,0,1,0,0,1,2,0,1,1,0,1,2,0,1,0,0,1,
%U 2,0,1,2,0,1,2,0,1,0,0,1,2,0,1,1,0,1,2,0,1,0,0,1,2,0,1,1,0,1,2,0,1,0,0,1,2
%N a(n) = A078711(n) - 1.
%H Paolo Xausa, <a href="/A078979/b078979.txt">Table of n, a(n) for n = 1..12288</a>
%t A078979list[i_]:=Nest[Join[#,Most[#],{Mod[Last[#],3]+1}]&,Range[3],i]-1;
%t A078979list[6] (* Each iteration doubles the number of terms *) (* _Paolo Xausa_, Aug 31 2023 *)
%Y Cf. A078711.
%K nonn
%O 1,3
%A _Benoit Cloitre_, Dec 19 2002
|
