login
A324731
Characteristic function of A324551: a(n) = 1 if 2*A156552(n) < A323243(n), and 0 otherwise.
4
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0
OFFSET
1
FORMULA
a(n) = 1 if A323244(n) is negative, and 0 otherwise.
For n > 1, a(n) = A294937(A156552(n)).
PROG
(PARI) A324731(n) = ((2*A156552(n))<A323243(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 12 2019
STATUS
approved