A356170 a(n) = 1 if A001222(n) == 2*A007814(n), and otherwise 0, where A001222 is bigomega (number of prime factors with multiplicity) and A007814 is the 2-adic valuation of n.

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

Offset

1

Links

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

Index entries for characteristic functions

Mathematica

Array[Boole[PrimeOmega[#] == 2 IntegerExponent[#, 2]] &, 122] (* Michael De Vlieger, Nov 02 2022 *)

Prog

(PARI) A356170(n) = (bigomega(n) == 2*valuation(n, 2));

Crossrefs

Characteristic function of A072978.

Cf. A001222, A007814.

Sequence in context: A014184 A014359 A079998 * A353629 A339661 A374471

Adjacent sequences: A356167 A356168 A356169 * A356171 A356172 A356173

Keyword

nonn

Author

Antti Karttunen, Nov 02 2022

Status

approved