OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..16
EXAMPLE
The third term is 13 which is obtained by concatenating the two previous terms 1 and 3.
MATHEMATICA
a[1] = 1; a[2] = 3; a[n_] := FromDigits@ Join[IntegerDigits@a[n - 2], IntegerDigits@a[n - 1]]; Array[a, 10] (* Robert G. Wilson v *)
nxt[{a_, b_}]:={b, FromDigits[Join[Flatten[IntegerDigits/@{a, b}]]]}; NestList[nxt, {1, 3}, 10][[All, 1]] (* Harvey P. Dale, May 15 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Jan 12 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jan 18 2006
STATUS
approved