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 A185291 #24 Feb 16 2025 08:33:13
%S A185291 1,2,2,5,2,6,2,14,5,6,2,18,2,6,4,42,2,18,2,18,6,6,2,58,5,6,14,16,2,18,
%T A185291 2,150,4,6,4,60,2,6,6,56,2,24,2,16,10,6,2,202,5,18,4,18,2,58,6,52,6,6,
%U A185291 2,66,2,6,16,717,4,18,2,18,4,18,2,218,2,6,12
%N A185291 Dirichlet convolution of A000001 with itself.
%H A185291 G. C. Greubel, <a href="/A185291/b185291.txt">Table of n, a(n) for n = 1..1000</a>
%H A185291 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DirichletSeriesGeneratingFunction.html">Dirichlet Series Generating Function</a>.
%H A185291 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/FiniteGroup.html">Finite Group</a>.
%t A185291 con[f_, g_, x_] := Sum[f[k] g[x/k], {k, Divisors[x]}];Table[con[FiniteGroupCount, FiniteGroupCount, x], {x, 1, 100}]
%o A185291 (PARI) DC(a,b)=vector(min(#a,#b),n,sumdiv(n,d,a[d]*b[n/d]))
%o A185291 A185291=DC(A1,A1) /* where A1 is a vector of the first values of A000001 */ - _M. F. Hasler_, Jan 26 2012
%K A185291 nonn
%O A185291 1,2
%A A185291 _Ben Branman_, Jan 25 2012
%E A185291 Data and Mmca code corrected by _M. F. Hasler_, Jan 26 2012