A346407 a(n) is the position of A051451(n) in A025487.

1, 2, 4, 6, 13, 29, 36, 55, 112, 223, 264, 514, 956, 1749, 2345, 2847, 5005, 8567, 9507, 16073, 26792, 43730, 70482, 88969, 140871, 221370, 342958, 368588, 565510, 859401, 1290994, 1927925, 2128165, 3142980, 4616207, 6754033, 9810997, 14133201, 20230329, 28744301

Offset

1,2

Comments

Equivalently, the positions of the distinct terms of A003418 in A025487.

Links

Table of n, a(n) for n=1..40.

Formula

A025487(a(n)) = A003418(n).

Example

A138534(1) = A025487(1) = 1, so a(1) = 1.
A138534(2) = A025487(2) = 2, so a(2) = 2.
A138534(3) = A025487(4) = 6, so a(3) = 4.

Mathematica

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

Crossrefs

Cf. A003418, A051451, A025487.

Similar sequences: A098718, A098719, A293635, A306802, A346043.

Sequence in context: A105543 A309352 A295618 * A369390 A324376 A027712

Adjacent sequences: A346404 A346405 A346406 * A346408 A346409 A346410

Keyword

nonn

Author

Amiram Eldar, Jul 15 2021

Status

approved