OFFSET
0,2
COMMENTS
This sequence is well-defined since for each n there are infinitely many numbers k such that f(k) = A346009(k)/A346010(k) = n. E.g., if k is a squarefree number (A005117) with 2*n prime factors, then f(k) = n.
All the terms are least integers of their prime signature (A025487) since f(n) depends only on the prime signature of n.
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..16
MATHEMATICA
lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]; f[p_, e_] := e/(e + 1); f[1] = 0; f[n_] := Plus @@ f @@@ FactorInteger[n]; s = Table[0, {7}]; Do[n = lps[[k]]; f1 = f[n]; If[IntegerQ[f1] && s[[f1+1]] == 0, s[[f1+1]] = n], {k, 1, Length[lps]}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 01 2021
STATUS
approved