The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A352504 Numbers k > 1 such that log(A005179(k))/k is a record low. 1
 2, 12, 15, 16, 18, 20, 24, 28, 30, 32, 36, 40, 45, 48, 54, 56, 60, 64, 72, 80, 84, 90, 96, 108, 112, 120, 128, 140, 144, 160, 168, 180, 192, 200, 210, 216, 224, 240, 252, 256, 270, 280, 288, 300, 320, 336, 360, 384, 400, 420, 432, 448, 480, 504, 512, 540, 560 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS It appears that 15 and 45 are the only odd numbers in the sequence. It also appears that this is a subsequence of A175495. LINKS Lucas C. D. Jacobs, Table of n, a(n) for n = 1..442 MATHEMATICA mp[1, m_] := {{}}; mp[n_, 1] := {{}}; mp[n_?PrimeQ, m_] := If[m < n, {}, {{n}}]; mp[n_, m_] := Join @@ Table[Map[Prepend[#, d] &, mp[n/d, d]], {d, Select[Rest[Divisors[n]], # <= m &]}]; mp[n_] := mp[n, n]; values = Table[mulpar = mp[n] - 1; Min[Table[Product[Prime[s]^mulpar[[j, s]], {s, 1, Length[mulpar[[j]]]}], {j, 1, Length[mulpar]}]], {n, 1, 560}]; a = {}; min = 1; Do[ratio = Log[values[[i]]]/i; If[ratio < min, min = ratio; AppendTo[a, i]], {i, 2, Length[values]}]; a (* using code from Vaclav Kotesovec *) CROSSREFS Cf. A005179, A175495. Sequence in context: A269130 A265485 A166745 * A262094 A200183 A118516 Adjacent sequences: A352501 A352502 A352503 * A352505 A352506 A352507 KEYWORD nonn AUTHOR Lucas C. D. Jacobs, Mar 18 2022 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 10 02:24 EDT 2024. Contains 375769 sequences. (Running on oeis4.)