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 A346407 #4 Jul 17 2021 11:22:13
%S A346407 1,2,4,6,13,29,36,55,112,223,264,514,956,1749,2345,2847,5005,8567,
%T A346407 9507,16073,26792,43730,70482,88969,140871,221370,342958,368588,
%U A346407 565510,859401,1290994,1927925,2128165,3142980,4616207,6754033,9810997,14133201,20230329,28744301
%N A346407 a(n) is the position of A051451(n) in A025487.
%C A346407 Equivalently, the positions of the distinct terms of A003418 in A025487.
%F A346407 A025487(a(n)) = A003418(n).
%e A346407 A138534(1) = A025487(1) = 1, so a(1) = 1.
%e A346407 A138534(2) = A025487(2) = 2, so a(2) = 2.
%e A346407 A138534(3) = A025487(4) = 6, so a(3) = 4.
%t A346407 lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]; s = {}; lcms = Union @ Table[LCM @@ Range[n], {n, 1, 31}]; Do[p = Position[lps, lcms[[n]]]; If[p == {}, Break[]]; AppendTo[s, p[[1, 1]]], {n, 1, Length[lcms]}]; s
%Y A346407 Cf. A003418, A051451, A025487.
%Y A346407 Similar sequences: A098718, A098719, A293635, A306802, A346043.
%K A346407 nonn
%O A346407 1,2
%A A346407 _Amiram Eldar_, Jul 15 2021