login
A366289
a(n) = 1 if A365711(n) is zero, 0 otherwise.
2
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1
OFFSET
1
PROG
(PARI)
A117966(n) = subst(Pol(apply(x->if(x == 2, -1, x), digits(n, 3)), 'x), 'x, 3); \\ From A117966
memoA365711 = Map();
A365711(n) = if(1==n, 1, my(v); if(mapisdefined(memoA365711, n, &v), v, v = -sumdiv(n, d, if(d<n, A117966(n/d)*A365711(d), 0)); mapput(memoA365711, n, v); (v)));
A366289(n) = !A365711(n);
CROSSREFS
Characteristic function of A366290.
Sequence in context: A371084 A353626 A347244 * A037824 A025461 A373264
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 07 2023
STATUS
approved