|
MAPLE
|
Rcat := proc(a, b) local resul, digs ; digs := convert(b, base, 10) ; resul := 0 ; for k in digs do resul := resul*10+k ; od ; digs := convert(a, base, 10) ; for k in digs do resul := resul*10+k ; od ; RETURN(resul) ; end: A091789 := proc(nmax) local a, anxt, n, i, j; a := [1, 2] ; for n from 3 to nmax do a := [op(a), Rcat(op(-2, a), op(-1, a))] ; od; RETURN(a) ; end: op(A091789(13)) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jul 26 2007
|