%I #9 Oct 05 2024 09:16:00
%S 4,6,10,14,16,22,24,26,34,36,38,40,46,56,58,60,62,74,82,84,86,88,94,
%T 96,100,104,106,118,122,132,134,136,140,142,144,146,152,156,158,166,
%U 178,184,194,196,202,204,206,214,216,218,220,226,228,232,240,248,254,260
%N Numbers k such that A094020(k) < k.
%H Amiram Eldar, <a href="/A095305/b095305.txt">Table of n, a(n) for n = 1..10000</a>
%e A094020(4) = 2 < 4, hence 4 is in the sequence.
%t 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 *)
%o (PARI) {for(n=1,260,s=bigomega(n);k=1;while(n*bigomega(k)!=k*s,k++);if(k<n,print1(n,",")))}
%Y Cf. A001222, A094020.
%K nonn
%O 1,1
%A _Klaus Brockhaus_ Jun 01 2004