A341995 a(n) = 1 if the arithmetic derivative (A003415) of n is a prime, otherwise 0.

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

Offset

0

Links

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

Index entries for characteristic functions

Formula

a(n) = A010051(A003415(n)).

For all n > 0, a(n) <= A341994(n).

Prog

(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A341995(n) = isprime(A003415(n));

Crossrefs

Characteristic function of A157037.

Cf. A003415, A010051, A341994.

Sequence in context: A275305 A169671 A070108 * A369655 A369965 A011675

Adjacent sequences: A341992 A341993 A341994 * A341996 A341997 A341998

Keyword

nonn

Author

Antti Karttunen, Feb 28 2021

Status

approved