A380481 First coefficient of the lindep transform of A325973.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 2, 3, 1, 1, 3, 2, 2, 1, 1, 2, 1, 2, 2, 2, 3, 1, 1, 2, 2, 1, 1, 3, 1, 1, 1, 2, 1, 6, 5, 1, 5, 1, 1, 1, 3, 1, 5, 2, 1, 5, 1, 2, 1, 2, 3, 1, 1, 1, 5, 1, 1, 7, 1, 2, 7, 1, 4, 1, 1, 4, 2, 2, 1, 2, 4, 2, 5, 5, 1, 5, 4, 1, 3, 2, 4, 4, 1, 1, 7, 4, 1, 1, 1, 5, 6

Offset

1,15

Comments

See A339790 for a definition of lindep-transform.

Links

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

Prog

(PARI)
A325973(n) = (1/2)*sumdiv(n, d, d*(issquarefree(d) + (1==gcd(d, n/d))));
A380481(n) = { my(v=lindep([A325973(n), n, 1])); (v*sign(v[1]))[1]; };

Crossrefs

Cf. A325973, A380482, A380483.

Cf. also A339790, A380461, A380471.

Sequence in context: A122587 A276333 A347380 * A380672 A308638 A356320

Adjacent sequences: A380478 A380479 A380480 * A380482 A380483 A380484

Keyword

nonn

Author

Antti Karttunen, Jan 26 2025

Status

approved