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 A039800 #20 Feb 27 2021 02:20:06 %S A039800 1,-1,0,1,0,0,-1,-1,0,0,1,1,2,2,1,0,-1,-2,-3,-4,-5,-5,-5,-4,-3,-1,2,5, %T A039800 8,11,14,17,18,20,20,20,18,16,11,8,0,-6,-15,-23,-34,-43,-54,-63,-73, %U A039800 -81,-88,-95,-98,-101,-99,-99,-89,-86,-70,-60,-38,-24,8,25,62 %N A039800 Column 1 of Inverse partition triangle A038498. %o A039800 (PARI) tp(n, k) = if (n<1, 0, if (k<1, 0, if (k == n, 1, if (k > n, 0, tp(n-1, k-1) + tp(n-k, k))))); %o A039800 lista(nn) = {my(mtp = matrix(nn, nn, n, k, tp(n, k)), mtpi = mtp^(-1)); vector(nn, k, mtpi[k, 1]);} \\ _Michel Marcus_, Feb 27 2021 %Y A039800 Cf. A038498, A039801, A039802, A039803, A039804. %K A039800 sign %O A039800 1,13 %A A039800 _Christian G. Bower_, Feb 15 1999 %E A039800 a(60) onward corrected by _Sean A. Irvine_, Feb 26 2021