|
Search: id:A105801
|
|
|
| A105801 |
|
Fibonacci-Collatz sequence: a(1)=1, a(2)=2; for n>2, let fib=a(n-1)+a(n-2); if fib is odd then a(n)=3*fib+1 else a(n)=fib/2. |
|
+0
4
|
|
| 1, 2, 10, 6, 8, 7, 46, 160, 103, 790, 2680, 1735, 13246, 44944, 29095, 222118, 753640, 487879, 3724558, 12637312, 8180935, 62454742, 211907032, 137180887, 1047263758, 3553333936, 2300298847, 17560898350, 59583591592, 38572244971
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Taking a(1)=1, a(2)=1 leads to the all ones sequence 1,1,1,1,1,1,... (A000012); similarly a(1)=a(2)=b gives "all b's" sequence b,b,b,b,b,....
|
|
MATHEMATICA
|
a[1]=1; a[2]=2; a[n_]:=a[n]=(fib=a[n-1]+a[n-2]; col=If[OddQ[fib], 3*fib+1, fib/2]); Table[a[n], {n, 30}]
|
|
CROSSREFS
|
Cf. A000012, A000045, A006370.
Adjacent sequences: A105798 A105799 A105800 this_sequence A105802 A105803 A105804
Sequence in context: A033468 A047816 A095845 this_sequence A086064 A076374 A142954
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Sep 12 2006
|
|
|
Search completed in 0.002 seconds
|
