OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
A094020(4) = 2 < 4, hence 4 is in the sequence.
MATHEMATICA
seq[lim_] := Module[{s = Table[PrimeOmega[n]/n, {n, 1, lim}], t = Table[0, {lim}]}, Select[Range[lim], FirstPosition[s, s[[#]]][[1]] < # &]]; seq[260] (* Amiram Eldar, Oct 05 2024 *)
PROG
(PARI) {for(n=1, 260, s=bigomega(n); k=1; while(n*bigomega(k)!=k*s, k++); if(k<n, print1(n, ", ")))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus Jun 01 2004
STATUS
approved