A361113 a(n)=1 if A361102(n) is even, otherwise 0.

0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0

Offset

1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A361113list[upto_]:=Join[{0}, 1-Mod[Select[Range[upto], Length[FactorInteger[#]]>1&], 2]]; A361113list[200] (* Paolo Xausa, Oct 11 2023 *)

Crossrefs

Cf. A361102, A361114, A361115, A361116.

Sequence in context: A354817 A053867 A189727 * A268411 A069513 A092248

Adjacent sequences: A361110 A361111 A361112 * A361114 A361115 A361116

Keyword

nonn

Author

Scott R. Shannon and N. J. A. Sloane, Mar 03 2023

Extensions

Offset changed to 1 by Paolo Xausa, Oct 11 2023

Status

approved