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.
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
Keywords
Programs
-
Mathematica
Fold[Append[#1, #1[[-3]] + LCM[#1[[-3]], #2 + 1]] &, {6, 6, 6}, Range@ 29] (* Michael De Vlieger, May 20 2018 *) -
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)}