A144288 Fibonacci rabbit sequence number n coded in base n, also diagonal of A144287.

1, 2, 10, 276, 81901, 2247615258, 81658169024988865, 644986443956439734064225751112, 3427833941153173630835645403655873661712817810325122

Offset

1,2

Links

Alois P. Heinz, Table of n, a(n) for n = 1..14

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

Cf. A000045, A005203, A005205, A061107, A036299, A144287.

Sequence in context: A005154 A074056 A206158 * A215286 A260231 A003047

Adjacent sequences: A144285 A144286 A144287 * A144289 A144290 A144291

Keyword

base,nice,nonn

Author

Alois P. Heinz, Sep 17 2008

Status

approved