Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A101637
a(n) = 1 if n is a 4-almost prime, that is a product of exactly four (not necessarily distinct) primes, 0 otherwise.
18
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
OFFSET
1,1
COMMENTS
Characteristic function of A014613.
See A101638 for the inverse Moebius transform of this sequence.
EXAMPLE
a(100) = 1 because 100 = 2 * 2 * 5 * 5 is the product of exactly 4 primes and thus is a 4-almost prime.
MATHEMATICA
Table[If[PrimeOmega[n]==4, 1, 0], {n, 100}] (* Harvey P. Dale, Sep 13 2024 *)
PROG
(PARI) a(n)=bigomega(n)==4 \\ Charles R Greathouse IV, Jan 31 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Dec 10 2004
EXTENSIONS
Name edited by Antti Karttunen, Oct 08 2017
STATUS
approved