A022826 a(n) = a([ (n+1)/2 ]) + a([ (n+1)/3 ]) + . . . + a([ (n+1)/n ]).

1, 1, 2, 3, 5, 6, 8, 10, 13, 14, 18, 19, 22, 26, 30, 31, 37, 38, 43, 47, 52, 53, 60, 63, 67, 72, 80, 81, 91, 92, 97, 103, 110, 115, 124, 125, 131, 136, 147, 148, 162, 163, 170, 181, 189, 190, 201, 204, 212, 220, 230, 231, 246, 253, 264, 271, 282, 283

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Links

• Ivan Neretin, Table of n, a(n) for n = 0..10000

Programs

Mathematica

Nest[Append[#, Total@#[[Quotient[2 + Length@#, Range[2, 1 + Length@#]]]]] &, {1}, 57] (* Ivan Neretin, Jan 25 2018 *)