A379118 Characteristic function of A379114, numbers k that have a proper unitary divisor d > 1 such that A048720(A065621(sigma(d)),sigma(k/d)) is equal to sigma(k).

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

Offset

1

Links

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

Index entries for characteristic functions

Index entries for sequences defined by congruent products between domains N and GF(2)[X].

Index entries for sequences related to polynomials in ring GF(2)[X].

Index entries for sequences related to sigma(n).

Formula

a(n) = [A379113(n) > 1], where [ ] is the Iverson bracket.

Prog

(PARI) A379118(n) = (A379113(n)>1);

Crossrefs

Cf. A000203, A048720, A065621, A379113, A379114.

Sequence in context: A353671 A353672 A323170 * A215480 A143731 A079872

Adjacent sequences: A379115 A379116 A379117 * A379119 A379120 A379122

Keyword

nonn,new

Author

Antti Karttunen, Dec 17 2024

Status

approved