A383287 - OEIS

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

A383287

a(n) = 1 if A276075(n) is a multiple of 4, otherwise 0, where A276075 is fully additive with a(p) = PrimePi(p)!.

2

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1

LINKS

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

Index entries for characteristic functions.

Index entries for sequences related to factorial base representation.

Index entries for sequences related to prime indices in the factorization of n.

FORMULA

a(n) = A121262(A276075(n)).

PROG

(PARI)

A276075(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*(primepi(f[k, 1])!)); };

A383287(n) = !(A276075(n)%4);

CROSSREFS

Characteristic function of A383288.

Cf. A121262, A276075.

Cf. also A369001, A372573.

Sequence in context: A265718 A267463 A264442 * A266243 A266608 A333818

Adjacent sequences: A383284 A383285 A383286 * A383288 A383289 A383290

KEYWORD

nonn

AUTHOR

Antti Karttunen, May 15 2025

STATUS

approved