A327866 a(n) = 1 if arithmetic derivative of n is square, 0 otherwise. Cf. A003415.

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

Offset

0

Comments

Characteristic function of union of A000040 and A256706.

Links

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

Index entries for characteristic functions

Formula

a(n) = A010052(A003415(n)).

Prog

(PARI)
A003415(n) = {my(fac); if(n<1, 0, fac=factor(n); sum(i=1, matsize(fac)[1], n*fac[i, 2]/fac[i, 1]))}; \\ From A003415
A327866(n) = issquare(A003415(n));

Crossrefs

Cf. A000040, A003415, A010052, A256706.

Sequence in context: A071031 A187037 A363344 * A336477 A190230 A141679

Adjacent sequences: A327863 A327864 A327865 * A327867 A327868 A327869

Keyword

nonn

Author

Antti Karttunen, Sep 30 2019

Status

approved