[go: up one dir, main page]

login
A095305
Numbers k such that A094020(k) < k.
2
4, 6, 10, 14, 16, 22, 24, 26, 34, 36, 38, 40, 46, 56, 58, 60, 62, 74, 82, 84, 86, 88, 94, 96, 100, 104, 106, 118, 122, 132, 134, 136, 140, 142, 144, 146, 152, 156, 158, 166, 178, 184, 194, 196, 202, 204, 206, 214, 216, 218, 220, 226, 228, 232, 240, 248, 254, 260
OFFSET
1,1
LINKS
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
Sequence in context: A241975 A063745 A123666 * A362416 A058917 A310584
KEYWORD
nonn
AUTHOR
Klaus Brockhaus Jun 01 2004
STATUS
approved