|
Search: id:A093092
|
|
|
| A093092 |
|
"Fibonacci in digits - up and down": start with a(1)=1, a(2)=1; repeatedly adjoin either the sum of the two previous terms (if that sum happens to be even) or else adjoin digits of the sum of previous two terms (if that sum happens to be odd). |
|
+0
3
|
|
| 1, 1, 2, 3, 5, 8, 1, 3, 9, 4, 12, 1, 3, 16, 1, 3, 4, 1, 9, 1, 7, 4, 7, 5, 10, 10, 8, 1, 1, 1, 1, 12, 1, 5, 20, 18, 9, 2, 2, 2, 1, 3, 1, 3, 6, 2, 5, 38, 2, 7, 1, 1, 4, 4, 3, 4, 4, 4, 9, 8, 7, 4, 3, 40, 9, 8, 2, 5, 8, 7, 7, 8, 8, 1, 3, 1, 7, 1, 5, 1, 1, 7, 4, 3, 4, 9, 1, 7, 10, 7, 1, 3, 1, 5, 14, 1, 5, 16, 9, 4
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
EXAMPLE
|
... a(6)=a(4)+a(5), a(7)=left digit of (a(5)+a(6)=5+8=1 3) as 13 is odd, a(8)=right digit of (a(5)+a(6)=5+8=1 3) as 13 is odd, a(11)=a(8)+a(9) as even ...
|
|
MATHEMATICA
|
a = {0, 1}; f[n_] := Block[{k = a[[n - 1]] + a[[n - 2]]}, If[ EvenQ[k], AppendTo[a, k], a = Join[a, IntegerDigits[k]] ]]; Do[ f[n], {n, 3, 100}]; a (from Robert G. Wilson v Mar 27 2004)
|
|
CROSSREFS
|
Cf. A093086, A093087, A093088, A093089, A093090, A093091.
Sequence in context: A031324 A102761 A093086 this_sequence A031111 A089911 A098978
Adjacent sequences: A093089 A093090 A093091 this_sequence A093093 A093094 A093095
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Bodo Zinser (BodoZinser(AT)CosmoData.net), Mar 20 2004
|
|
|
Search completed in 0.002 seconds
|
