A360113 a(n) = 1 if A360112(n) = 1, otherwise 0.

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, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 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, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1

Offset

2

Comments

See comments in A345330.

Links

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

Index entries for characteristic functions

Formula

a(n) = [A360112(n) = 1], where [ ] is the Iverson bracket.

a(n) = A000035(n) * A360116(n).

Prog

(PARI) A360113(n) = { my(f=factor(n), x = 1+(2^valuation(n-1, 2))); (1==sum(m=0, n-1, !((m + m^x)%n))); };

Crossrefs

Characteristic function of A360114.

Cf. A000035, A345330, A360112, A360116.

Sequence in context: A287773 A173923 A260393 * A361123 A125122 A000035

Adjacent sequences: A360110 A360111 A360112 * A360114 A360115 A360116

Keyword

nonn

Author

Antti Karttunen, Feb 10 2023

Status

approved