A380467 a(n) = 1 if A380459(n) has no divisors of form p^p, otherwise 0.

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

Offset

1

Links

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

Index entries for characteristic functions.

Index entries for sequences related to primorial base.

Formula

a(n) = A359550(A380459(n)).

a(n) = A008966(n) - A380469(n).

Prog

(PARI)
A359550(n) = { my(pp); forprime(p=2, , pp = p^p; if(!(n%pp), return(0)); if(pp > n, return(1))); };
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A349394(n) = { my(p=0, e); if((e=isprimepower(n, &p)), p^(e-1), 0); };
A380459(n) = { my(m=1); fordiv(n, d, m *= A276086(d)^A349394(n/d)); (m); };
A380467(n) = A359550(A380459(n));

Crossrefs

Characteristic function of A380468.

Cf. A008966, A276086, A349394, A359550, A380459, A380469

Sequence in context: A323152 A192280 A389449 * A380524 A342005 A391747

Adjacent sequences: A380464 A380465 A380466 * A380468 A380469 A380470

Keyword

nonn

Author

Antti Karttunen, Feb 01 2025

Status

approved