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 A308443 #8 Jun 02 2019 03:04:13
%S A308443 1,1,5,23,173,1249,13249,130255,1670297,21350177,322709021,4933457671,
%T A308443 87302545285,1551234590593,30934738239833,630934308253439,
%U A308443 14035903893341489,320008164205036225,7885477719156600757,198735099970790861047,5352424525748204265821
%N A308443 Expansion of e.g.f. Product_{k>=1} 1/(1 - x^k)^(psi(k)/k), where psi() is the Dedekind psi function (A001615).
%H A308443 Vaclav Kotesovec, <a href="/A308443/b308443.txt">Table of n, a(n) for n = 0..438</a>
%F A308443 E.g.f.: exp(Sum_{k>=1} A060648(k)*x^k/k).
%t A308443 nmax = 20; CoefficientList[Series[Product[1/(1 - x^k)^(DirichletConvolve[j, MoebiusMu[j]^2, j, k]/k), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
%t A308443 a[n_] := a[n] = Sum[Sum[2^PrimeNu[d]/d, {d, Divisors[k]}] k! Binomial[n - 1, k - 1] a[n - k], {k, 1, n}]; a[0] = 1; Table[a[n], {n, 0, 20}]
%Y A308443 Cf. A000262, A001615, A060648, A156303.
%K A308443 nonn
%O A308443 0,3
%A A308443 _Ilya Gutkovskiy_, May 27 2019