login
Numbers k such that A094020(k) < k.
2

%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