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 (* Robert G. Wilson v, Mar 27 2004 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bodo Zinser, Mar 20 2004
STATUS
approved