A322860 Characteristic function of practical numbers, A005153: If n is in A005153, a(n) = 1, otherwise a(n) = 0.

1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 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, 0, 1, 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, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1

Offset

1

Comments

Characteristic function of practical numbers, A005153.

Links

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

Index entries for characteristic functions

Formula

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

Prog

(PARI) A322860 = is_A005153 \\ Please do not duplicate code by pasting copies from one place to others, it will be near to impossible to track down all copies if something has to be corrected or improved. - M. F. Hasler, Jun 19 2023

Crossrefs

Cf. A005153, A030057, A225559 (partial sums).

Sequence in context: A326956 A341629 A365429 * A353766 A178225 A264739

Adjacent sequences: A322857 A322858 A322859 * A322861 A322862 A322863

Keyword

nonn

Author

Antti Karttunen, Dec 31 2018

Status

approved