This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A022826 #7 Jan 25 2018 16:34:04 %S A022826 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, %T A022826 72,80,81,91,92,97,103,110,115,124,125,131,136,147,148,162,163,170, %U A022826 181,189,190,201,204,212,220,230,231,246,253,264,271,282,283 %N A022826 a(n) = a([ (n+1)/2 ]) + a([ (n+1)/3 ]) + . . . + a([ (n+1)/n ]). %H A022826 Ivan Neretin, <a href="/A022826/b022826.txt">Table of n, a(n) for n = 0..10000</a> %t A022826 Nest[Append[#, Total@#[[Quotient[2 + Length@#, Range[2, 1 + Length@#]]]]] &, {1}, 57] (* _Ivan Neretin_, Jan 25 2018 *) %K A022826 nonn %O A022826 0,3 %A A022826 _Clark Kimberling_