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 A081543 #24 Sep 03 2019 12:06:58 %S A081543 1,3,4,8,6,17,8,24,20,32,12,76,14,51,72,97,18,158,20,213,142,101,24, %T A081543 491,152,132,248,479,30,915,32,681,398,206,828,1859,38,249,600,2560, %U A081543 42,2692,44,1686,2864,347,48,6166,1766,3405,1192,2811,54,6796,4424,9987 %N A081543 G.f.: Sum_{k >= 1} x^k/(1-x^k)^(k+1). %H A081543 Seiichi Manyama, <a href="/A081543/b081543.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..999 from Harvey P. Dale) %F A081543 If p is prime then a(p)=p+1. %F A081543 a(n) = Sum_{d|n} binomial(d-1+n/d,d). - _R. J. Mathar_, Feb 21 2009 %t A081543 With[{nn=50},CoefficientList[Series[Sum[x^k/(1-x^k)^(k+1),{k,nn}],{x,0,nn}],x]] (* _Harvey P. Dale_, May 28 2017 *) %o A081543 (PARI) a(n)=if(n<1,0,polcoeff(sum(k=1,n,1/(1-x^k)^k,x*O(x^(n^2))),n)) %Y A081543 Cf. A157019. %K A081543 nonn %O A081543 1,2 %A A081543 _Benoit Cloitre_, Apr 21 2003 %E A081543 Description corrected by _Vladeta Jovovic_, Aug 22 2003 %E A081543 Corrected offset _R. J. Mathar_, Feb 21 2009