A380531 First coefficient of the lindep transform of A129283 (n + arithmetic derivative of n).

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 1, 2, 2, 3, 1, 1, 1, 1, 1, 2, 1, 3, 3, 1, 5, 1, 1, 2, 3, 3, 5, 2, 1, 2, 1, 2, 5, 1, 4, 1, 1, 1, 3, 1, 1, 1, 1, 2, 4, 1, 4, 1, 1, 1, 3, 2, 1, 2, 4, 2, 3, 5, 1, 3, 5, 1, 3, 2, 4, 1, 1, 5, 4, 5, 1, 1, 1, 2, 3

Offset

1,14

Comments

See A339790 for a definition of lindep-transform.

Links

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

Prog

(PARI)
A129283(n) = (n+if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1])));
A380531(n) = { my(v=lindep([A129283(n), n, 1])); (v*sign(v[1]))[1]; };

Crossrefs

Cf. A129283, A380532, A380533.

Cf. also A339790.

Sequence in context: A164562 A058188 A333851 * A335230 A300752 A300751

Adjacent sequences: A380521 A380522 A380523 * A380532 A380533 A380540

Keyword

nonn,new

Author

Antti Karttunen, Jan 26 2025

Status

approved