A340374 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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 (list; graph; refs; listen; history; text; internal format)

	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`

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 25 00:24 EDT 2023. Contains 361511 sequences. (Running on oeis4.)