A341625 a(n) = 1 if the arithmetic derivative of n is less than n, otherwise 0.

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

Offset

0

Links

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

Index entries for characteristic functions

Formula

a(n) = 1 if A003415(n) < n, otherwise 0.

a(n) = [A168036(n) < 0].

For all >= 1, a(n) >= A080339(n).

Prog

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

Crossrefs

Characteristic function of A083347.

Cf. A003415, A080339, A168036.

Sequence in context: A098725 A284939 A188260 * A166486 A046978 A075553

Adjacent sequences: A341622 A341623 A341624 * A341626 A341627 A341628

Keyword

nonn

Author

Antti Karttunen, Feb 28 2021

Status

approved