A378539 Characteristic function for numbers that have Zumkeller divisors.

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

Offset

1

Comments

Differs from A294936 at n=748, 7544, 10184, 56816, 61904, 62416, 66928, 69488, 73616, 102416, ..., that might be a subsequence of A378538.

Links

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

Index entries for characteristic functions

Formula

a(n) = [A378446(n) > 0], where [ ] is the Iverson bracket.

a(n) >= A378537(n).

Prog

(PARI)
A378446(n) = sumdiv(n, d, A083206(d));
A378539(n) = (A378446(n)>0);

Crossrefs

Characteristic function of A376880.

Cf. A083206, A378446, A378537, A378538.

Different from A294936.

Sequence in context: A133944 A210455 A294936 * A296210 A368990 A094912

Adjacent sequences: A378536 A378537 A378538 * A378540 A378541 A378542

Keyword

nonn,new

Author

Antti Karttunen, Dec 02 2024

Status

approved