login
A322860
Characteristic function of practical numbers, A005153: If n is in A005153, a(n) = 1, otherwise a(n) = 0.
4
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.
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 A373990
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 31 2018
STATUS
approved