%I #8 Aug 26 2015 09:24:26
%S 1,6,4,3,16,9,46,24,13,66,34,18,10,6,4,3,16,9,46,24,13,66,34,18,10,6,
%T 4,3,16,9,46,24,13,66,34,18,10,6,4,3,16,9,46,24,13,66,34,18,10,6,4,3,
%U 16,9,46,24,13,66,34,18,10,6,4,3,16,9,46,24,13,66,34,18,10,6,4,3,16,9,46,24
%N a(1)=1, a(n)=5*a(n-1)+1 if a(n-1) is odd, a(n)=a(n-1)/2+1 otherwise.
%C Starting with a(1)=1 up to 60 sequence becomes periodic except perhaps for a(1)=17,23,32,35,41,44,53,55,59.
%H <a href="/index/Rec#order_12">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
%F For n>=2 sequence is 12-periodic with period (6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10).
%t Join[{1},LinearRecurrence[{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},{6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10},79]] (* _Ray Chandler_, Aug 26 2015 *)
%K nonn
%O 1,2
%A _Benoit Cloitre_, Apr 30 2003
|