OFFSET
0,1
MATHEMATICA
Module[{nn=20, luc}, luc=LucasL[Range[0, nn]]; Rest[Table[LCM@@Take[luc, n], {n, nn}]]] (* Harvey P. Dale, Jun 29 2015 *)
PROG
(PARI) A000032(n) = fibonacci(n+1)+fibonacci(n-1)
a(n) = {v = 1; for (i=0, n, v = lcm(v, A000032(i)); ); return (v); } \\ Michel Marcus, Jul 22 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Reiner Martin, Jul 21 2001
EXTENSIONS
a(0) and more terms from Sean A. Irvine, Apr 15 2023
STATUS
approved