A386572 Numbers that are not of the form k - Omega(k), where Omega(k) is the number of prime factors of k counted with multiplicity.
3, 11, 14, 21, 26, 29, 34, 35, 38, 45, 48, 51, 54, 57, 59, 61, 62, 64, 68, 69, 71, 74, 76, 79, 81, 87, 94, 97, 98, 101, 105, 110, 118, 123, 124, 125, 129, 133, 134, 137, 142, 147, 149, 155, 158, 160, 165, 170, 173, 174, 177, 182, 184, 186, 188, 189, 191, 193, 197
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Imre Kátai, A remark on a paper of Luca, Acta Mathematica Hungarica, Vol. 113, No. 4 (2006), pp. 313-318.
- 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 - PrimeOmega[k], {k, 1, lim + Log2[lim]}]]; seq[200] -
PARI
list(lim) = setminus(vector(lim, i, i), Set(vector(lim + logint(lim, 2), i, i - bigomega(i))));
Comments