A378661 Characteristic function of A083211: a(n) = 1 if n is abundant and is not Zumkeller, otherwise 0.

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

Offset

1

Links

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

Index entries for characteristic functions

Formula

a(n) = A294937(n) * (1-A179527(n)).

a(n) = [A378600(n) < 0].

Prog

(PARI) A378661(n) = ((sigma(n)>2*n) && (0==A083206(n)));

Crossrefs

Characteristic function of A083211, which is the intersection of A005101 and A083210.

Cf. A000203, A083206, A179527, A294937, A378600.

Sequence in context: A185709 A011732 A353473 * A011731 A085980 A023974

Adjacent sequences: A378658 A378659 A378660 * A378662 A378663 A378664

Keyword

nonn,new

Author

Antti Karttunen, Dec 04 2024

Status

approved