A366289 a(n) = 1 if A365711(n) is zero, 0 otherwise.

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

Links

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

Index entries for characteristic functions

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.

Cf. A117966, A365711.

Sequence in context: A371084 A353626 A347244 * A037824 A025461 A169674

Adjacent sequences: A366286 A366287 A366288 * A366290 A366291 A366292

Keyword

nonn

Author

Antti Karttunen, Oct 07 2023

Status

approved