OFFSET
1,1
COMMENTS
k is a term iff {k == 0 (mod BigOmega(k)) and k NOT prime}.
This sequence is obtained from A074946 by excluding all primes from that sequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime Factor.
EXAMPLE
k = 3; not a term because not a prime.
k = 4; a term because satisfies both k == 0 (mod bigomega(k)) and k NOT prime.
MATHEMATICA
Select[Range[200], CompositeQ[#] && Divisible[#, PrimeOmega[#]]&] (* Jean-François Alcover, Nov 11 2016 *)
PROG
(PARI) isok(c) = (c>1) && !isprime(c) && !(c % bigomega(c)); \\ Michel Marcus, Feb 28 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
William A. Tedeschi, Mar 07 2008
EXTENSIONS
Edited by Michel Marcus, Feb 28 2023
STATUS
approved