|
%I #8 Feb 19 2018 17:50:06
%S 10,42,14,54,18,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,
%T 2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,
%U 2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2
%N a(n)=a(n-1)/3 if a(n-1)=0(mod 3), a(n)=4*a(n-1)+2 if a(n-1)=1(mod 3), a(n)=4*a(n-1)-2 if a(n-1)=2(mod 3).
%t a[0] = 10; a[n_] := a[n] = Switch[ Mod[a[n - 1], 3], 0, a[n - 1]/3, 1, 4a[n - 1] + 2, 2, 4a[n - 1] - 2]; Table[ a[n], {n, 0, 102}] (* _Robert G. Wilson v_, Nov 10 2005 *)
%t nxt[a_]:=Module[{m=Mod[a,3]},Which[m==0,a/3,m==1,4a+2,m==2,4a-2]]; NestList[ nxt,10,110] (* or *) PadRight[{10,42,14,54,18},120,{2,6}] (* _Harvey P. Dale_, Feb 19 2018 *)
%K nonn
%O 0,1
%A _Edwin F. Sampang_, Nov 04 2005
|
