A340374 a(n) = 1 if the odd part of n satisfies Korselt's criterion (is in A324050), 0 otherwise.

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

Offset

1

Links

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

Index entries for characteristic functions

Formula

a(n) = [A002322(A000265(n)) divides A000265(n)-1], where [ ] is the Iverson bracket.

Prog

(PARI)
A000265(n) = (n>>valuation(n, 2));
A002322(n) = lcm(znstar(n)[2]); \\ From A002322
isA324050(n) = (0==((n-1)%A002322(n)));
A340374(n) = isA324050(A000265(n));

Crossrefs

Cf. A000265, A002322, A002997, A324050.

Differs from A340371 for the first time at n=561, where a(561) = 1.

Sequence in context: A071023 A166280 A340371 * A070887 A209635 A355689

Adjacent sequences: A340371 A340372 A340373 * A340375 A340376 A340377

Keyword

nonn

Author

Antti Karttunen, Jan 06 2021

Status

approved