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 A346043 #9 Jul 08 2021 09:52:44
%S A346043 1,2,6,17,67,166,676,1373,4475,10446,30036,51032,196386,315302,737515,
%T A346043 1654229,4227565,6301902,17975187,26010425,70085244,133337963
%N A346043 a(n) is the position of A138534(n) in A025487.
%F A346043 A025487(a(n)) = A138534(n).
%e A346043 A138534(2) = A025487(6) = 12, so a(2) = 6.
%t A346043 lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]; s = {}; Do[p = Position[lps, Product[Prime[k]^Floor[n/k], {k, 1, n}]]; If[p == {}, Break[]]; AppendTo[s, p[[1, 1]]], {n, 0, 20}]; s
%o A346043 (PARI) f(m) = my(c=1, p, q=2, v=vector(logint(m, 2), i, 2^i), w); while(#v, c+=#v; p=q; q=nextprime(q+1); w=List([]); for(i=1, #v, for(j=1, min(valuation(v[i], p), logint(m\v[i], q)), listput(w, v[i]*q^j))); v=w); c;
%o A346043 a(n) = f(prod(k=1, n, prime(k)^(n\k))); \\ _Jinyuan Wang_, Jul 08 2021
%Y A346043 Cf. A025487, A138534.
%Y A346043 Similar sequences: A098718, A098719, A293635, A306802.
%K A346043 nonn,more
%O A346043 0,2
%A A346043 _Amiram Eldar_, Jul 02 2021
%E A346043 a(20)-a(21) from _Jinyuan Wang_, Jul 08 2021