OFFSET
1,2
EXAMPLE
E.g. a(7) = LS(a(6))+LS(a(5)). LS(a(6)) = LS(2113253433) = 1221131215131423, LS(a(5)) = LS(113428) = 2113141218 -> a(7) = 1221133328272641
MATHEMATICA
RunLengthEncode[x_List] := (Through[{First, Length}[ #1]] &) /@ Split[x]; LS[n_] := FromDigits[ Reverse[ Flatten[ RunLengthEncode[ Reverse[ IntegerDigits[n]]]]]]; a[1] = 1; a[2] = 2; a[n_] := a[n] = LS[a[n - 1]] + LS[a[n - 2]]; Table[a[n], {n, 1, 10}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Jan 15 2003
EXTENSIONS
More terms from Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 24 2003
Corrected and edited by Robert G. Wilson v, Jan 27 2003
STATUS
approved