OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 200 terms from N. J. A. Sloane)
N. J. A. Sloane, Transforms.
MAPLE
with(transforms); f:=proc(n) option remember; if n <= 1 then n else digrev(f(n-1)+f(n-2)); fi; end; [seq(f(n), n=0..50)];
MATHEMATICA
Clear[ BiF ]; BiF[ 0 ]=0; BiF[ 1 ]=1; BiF[ n_Integer ] := BiF[ n ]=Plus@@(IntegerDigits[ BiF[ n-2 ]+BiF[ n-1 ], 10 ]//(#*Array[ 10^#&, Length[ # ], 0 ])&); Array[ BiF, 40, 0 ]
nxt[{a_, b_}]:={b, FromDigits[Reverse[IntegerDigits[a+b]]]}; Transpose[ NestList[ nxt, {0, 1}, 40]][[1]] (* Harvey P. Dale, Jun 15 2013 *)
PROG
(Python)
from itertools import islice
def A014258_gen(): # generator of terms
a, b = 0, 1
yield 0
while True:
yield b
a, b = b, int(str(a+b)[::-1])
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved