A318123 a(0) = a(1) = 1; a(n) = Sum_{k=0..n-2} lcm(a(k), a(n-k-2)).

1, 1, 1, 2, 3, 6, 11, 22, 42, 90, 165, 364, 710, 1586, 2885, 6288, 12546, 28686, 55406, 130284, 261016, 555716, 1149559, 2552096, 5429610, 11510594, 23650462, 54063580, 109053128, 262968892, 501771275, 1192348336, 2635608642, 5766609158, 11935917602, 28867050172, 58702673480

Offset

0,4

Links

Table of n, a(n) for n=0..36.

N. J. A. Sloane, Transforms

Mathematica

a[0] = a[1] = 1; a[n_] := a[n] = Sum[LCM[a[k], a[n - k - 2]], {k, 0, n - 2}]; Table[a[n], {n, 0, 36}]

Crossrefs

Cf. A007463, A007477, A318122.

Sequence in context: A141072 A002083 A124973 * A226594 A043327 A247968

Adjacent sequences: A318120 A318121 A318122 * A318124 A318125 A318126

Keyword

nonn

Author

Ilya Gutkovskiy, Aug 18 2018

Status

approved