A359152 a(n) = 1 if n is a number of the form 4u+3 with an odd number of prime factors (counted with multiplicity), otherwise 0.

0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 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, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 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, 1, 0

Offset

1

Links

Antti Karttunen, Table of n, a(n) for n = 1..100000

Index entries for characteristic functions

Formula

a(n) = A066829(n) * A121262(1+n).

a(n) = A353558(n) - A359150(n).

a(n) = A121262(1+n) - A359162(n).

Mathematica

Table[If[Mod[n, 4]==3&&OddQ[PrimeOmega[n]], 1, 0], {n, 130}] (* Harvey P. Dale, Jan 25 2025 *)

Prog

(PARI) A359152(n) = ((bigomega(n)%2)&&(3==(n%4)));

Crossrefs

Characteristic function of A359153.

Cf. A066829, A121262, A353558, A359150, A359162.

Sequence in context: A288707 A079261 A354028 * A285495 A073059 A288173

Adjacent sequences: A359149 A359150 A359151 * A359153 A359154 A359155

Keyword

nonn

Author

Antti Karttunen, Dec 17 2022

Status

approved