OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
lk[n_]:=Module[{k=1}, While[n PrimeOmega[k]!=k PrimeOmega[n], k++]; k]; Array[lk, 80] (* Harvey P. Dale, Jul 18 2024 *)
seq[lim_] := Module[{s = Table[PrimeOmega[n]/n, {n, 1, lim}], t = Table[0, {lim}]}, Do[t[[i]] = FirstPosition[s, s[[i]]][[1]], {i, 1, lim}]; t] ; seq[100] (* Amiram Eldar, Oct 05 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, May 31 2004
STATUS
approved