|
%I #4 Jul 23 2018 12:48:24
%S 2,3,23,323,23323,32323323,2332332323323,323233232332332323323,
%T 2332332323323323233232332332323323,
%U 3232332323323323233232332332323323323233232332332323323,23323323233233232332323323323233233232332323323323233232332332323323323233232332332323323
%N Define the first two terms to be 2 and 3. All the other terms are obtained by concatenating the two previous terms.
%e The third term is obtained by concatenating the previous two terms 2 and 3 to get 23.
%t nxt[{a_,b_}]:={b,FromDigits[Join[IntegerDigits[a],IntegerDigits[b]]]}; NestList[nxt,{2,3},10][[All,1]] (* _Harvey P. Dale_, Jul 23 2018 *)
%K easy,nonn,base
%O 1,1
%A _Parthasarathy Nambi_, Apr 21 2005
%E More terms from _Harvey P. Dale_, Jul 23 2018
|
