A386571 Numbers that are not of the form k - omega(k), where omega(k) is the number of distinct primes dividing k.
5, 9, 11, 14, 17, 21, 23, 25, 29, 35, 41, 45, 47, 51, 59, 62, 64, 65, 68, 69, 71, 76, 77, 79, 95, 101, 103, 105, 118, 119, 125, 128, 149, 152, 154, 155, 161, 163, 184, 188, 189, 191, 193, 197, 202, 208, 209, 218, 220, 221, 229, 236, 239, 241, 244, 253, 254, 258
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Florian Luca, On numbers not of the form n-omega(n), Acta Mathematica Hungarica, Vol. 106, No. 1 (2005), pp. 117-135.
Crossrefs
Programs
-
Mathematica
seq[lim_] := Complement[Range[lim], Table[k - PrimeNu[k], {k, 1, lim + Log2[lim]}]]; seq[300] -
PARI
list(lim) = setminus(vector(lim, i, i), Set(vector(lim + logint(lim, 2), i, i - omega(i))));
Comments