OFFSET
1,1
MATHEMATICA
Fold[Append[#1, #1[[-3]] + LCM[#1[[-3]], #2 + 1]] &, {6, 6, 6}, Range@ 29] (* Michael De Vlieger, May 20 2018 *)
PROG
(PARI) Recurrence(n)={b1=6; b2=6; b3=6; list=[6, 6, 6]; for(k=4, n, b4=b1+lcm(k-2, b1); list=concat(list, b4); b1=b2; b2=b3; b3=b4); print(list)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Pedja Terzic, May 19 2018
STATUS
approved