OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[FromDigits[Join[Flatten[IntegerDigits[{Fibonacci[n], LucasL[n]}]]]], {n, 0, 50}]
PROG
(Magma) [Seqint(Intseq(Lucas(n)) cat Intseq(Fibonacci(n))): n in [0..50]];
(PARI) a(n)=eval(Str(fibonacci(n), fibonacci(n-1)+fibonacci(n+1))) \\ Charles R Greathouse IV, Sep 14 2014
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Vincenzo Librandi, Sep 14 2014
STATUS
approved