A385055 a(n) = [n = 1 or A076479(n) = Möbius(A067029(n))], where [.] is the Iverson bracket.

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

Offset

1

Links

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

Maple

with(NumberTheory):
A076479 := n -> (-1)^NumberOfPrimeFactors(n, 'distinct'):
A067029 := n -> ifelse(n = 1, 0, ifactors(n)[2][1][2]):
isA385055 := n -> n = 1 or (A076479(n) = Moebius(A067029(n))):
A385055 := n -> ifelse(isA385055(n), 1, 0): seq(A385055(n), n = 1..90);

Mathematica

A385055[n_] := Boole[n == 1 || (-1)^Length[#] == MoebiusMu[#[[1, 2]]] & [FactorInteger[n]]];
Array[A385055, 100] (* Paolo Xausa, Jun 25 2025 *)

Crossrefs

Cf. A384709, A008683, A076479, A067029.

Sequence in context: A242252 A100810 A383575 * A373481 A174889 A005171

Adjacent sequences: A385052 A385053 A385054 * A385056 A385057 A385058

Keyword

nonn

Author

Peter Luschny and Friedjof Tellkamp, Jun 16 2025

Status

approved