|
|
A061083
|
|
Fibonacci-type sequence based on division: a(0) = 1, a(1) = 2 and a(n) = a(n-2)/a(n-1) but ignore decimal point.
|
|
2
|
|
|
1, 2, 5, 4, 125, 32, 390625, 8192, 476837158203125, 17179869184, 277555756156289135105907917022705078125, 618970019642690137449562112
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = k^(n-th Fibonacci number) with k=2 if n is odd, k=5 if n is even
|
|
EXAMPLE
|
a(6) = 390625, since a(4)/a(5) = 125/32 = 3.90625
|
|
PROG
|
(Haskell)
a061083 n = a061083_list !! n
a061083_list = 1 : 2 : zipWith divIgnPnt a061083_list (tail a061083_list)
where divIgnPnt x y = ddiv (10 * m) x' where
ddiv u w | r == 0 = 10 * w + q
| otherwise = ddiv (10 * r) (10 * w + q)
where (q, r) = divMod u y
(x', m) = divMod x y
|
|
CROSSREFS
|
Cf. A061084 for subtraction, A000301 for multiplication and A000045 for addition - the common Fibonacci numbers
|
|
KEYWORD
|
nonn,easy,nice,base
|
|
AUTHOR
|
Ulrich Schimke (ulrschimke(AT)aol.com)
|
|
STATUS
|
approved
|
|
|
|