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,1

Links

Table of n, a(n) for n=1..32.

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

Cf. A135504, A217662.

Sequence in context: A212096 A052380 A315826 * A315827 A315828 A315829

Adjacent sequences: A304818 A304819 A304820 * A304822 A304823 A304824

Keyword

nonn

Author

Pedja Terzic, May 19 2018

Status

approved