OFFSET
1,1
COMMENTS
The asymptotic density of this sequence is 1 (Erdős and Pomerance, 1990). - Amiram Eldar, Jul 10 2020
LINKS
Hieronymus Fischer, Table of n, a(n) for n = 1..10000
Paul Erdős and Carl Pomerance, On a theorem of Besicovitch: values of arithmetic functions that divide their arguments, Indian J. Math., Vol. 32 (1990), pp. 279-287.
EXAMPLE
a(1) = 8, since 8 = 2*2*2 has 3 prime factors and 8 is not divisible by 3.
a(3) = 15, since 15 = 3*5 has 2 prime factors and 15 is not divisible by 2.
MATHEMATICA
Select[Range[2, 200], Mod[#, PrimeOmega[#]]!=0&] (* Harvey P. Dale, May 13 2023 *)
PROG
(PARI) isok(n) = (n % bigomega(n)) \\ Michel Marcus, Jul 15 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Hieronymus Fischer, Oct 23 2007
STATUS
approved