A368990 a(n) = 1 if A005940(1+n) is nondeficient, otherwise 0. Here A005940 is the Doudna sequence.

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

Offset

0

Links

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

Index entries for characteristic functions

Index entries for sequences related to sigma(n)

Formula

a(n) = A294936(A005940(1+n)).

a(n) = [A324055(n) <= 0], where [ ] is the Iverson bracket.

Prog

(PARI)
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); (t); };
A368990(n) = A294936(A005940(1+n));

Crossrefs

Cf. A005940, A023196, A294936, A324055, A368991 (partial sums).

Sequence in context: A294936 A378539 A296210 * A094912 A103673 A028862

Adjacent sequences: A368987 A368988 A368989 * A368991 A368992 A368993

Keyword

nonn

Author

Antti Karttunen, Jan 11 2024

Status

approved