|
|
A144288
|
|
Fibonacci rabbit sequence number n coded in base n, also diagonal of A144287.
|
|
2
|
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
See program.
|
|
MAPLE
|
f:= proc(n, b) option remember; `if`(n<2, [n, n], [f(n-1, b)[1] *b^f(n-1, b)[2] +f(n-2, b)[1], f(n-1, b)[2] +f(n-2, b)[2]]) end: a:= n-> f(n, n)[1]: seq(a(n), n=1..11);
|
|
MATHEMATICA
|
f[n_, b_] := f[n, b] = If[n < 2, {n, n}, {f[n-1, b][[1]]*b^f[n-1, b][[2]] + f[n-2, b][[1]], f[n-1, b][[2]] + f[n-2, b][[2]]}]; a[n_] := f[n, n][[1]]; Table[a[n], {n, 1, 9}] (* Jean-François Alcover, Jan 03 2013, translated from Maple *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nice,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|