login
A304821
For n > 3, a(n) = a(n-3) + lcm(a(n-3), n-2) with a(1)=6, a(2)=6, a(3)=6.
1
6, 6, 6, 12, 12, 18, 72, 24, 144, 144, 96, 864, 1728, 192, 12096, 13824, 1152, 24192, 248832, 2304, 483840, 1492992, 18432, 5806080, 35831808, 36864, 34836480, 501645312, 147456, 69672960, 15049359360, 884736
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
Sequence in context: A212096 A052380 A315826 * A315827 A315828 A315829
KEYWORD
nonn
AUTHOR
Pedja Terzic, May 19 2018
STATUS
approved