OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..16
EXAMPLE
a(4) = a(3) + concatenation of a(2) and a(3) = 12 + 112 = 124.
MATHEMATICA
a[n_] := (a[n - 1] + FromDigits[ Join[ IntegerDigits[ a[n - 2]], IntegerDigits[ a[n - 1]]]]); a[1] = a[2] = 1; Table[ a[n], {n, 1, 10}]
nxt[{a_, b_}]:={b, b+a*10^IntegerLength[b]+b}; NestList[nxt, {1, 1}, 10][[;; , 1]] (* Harvey P. Dale, Oct 20 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, May 11 2002
EXTENSIONS
Edited by Robert G. Wilson v, May 14 2002
STATUS
approved