A352062 a(1) = 1; a(n) = -Sum_{d|n, d > 1} prime(d-1) * a(n/d).

1, -2, -3, -1, -7, 1, -13, -5, -10, 5, -29, 7, -37, 11, -1, 2, -53, 29, -61, 11, 7, 43, -79, 37, -40, 51, -14, 35, -107, 103, -113, 5, 43, 75, 43, 41, -151, 87, 59, 97, -173, 169, -181, 43, 142, 119, -199, 50, -54, 157, 89, 81, -239, 170, 155, 151, 103, 159, -271, 41, -281, 169, 276, 59, 207

Offset

1,2

Comments

Dirichlet inverse of A008578.

Links

Table of n, a(n) for n=1..65.

Ilya Gutkovskiy, Scatterplot of a(n) up to n=50000

Mathematica

a[1] = 1; a[n_] := a[n] = -Sum[If[d > 1, Prime[d - 1] a[n/d], 0], {d, Divisors[n]}]; Table[a[n], {n, 65}]

Crossrefs

Cf. A008578, A030013, A030014, A034759.

Sequence in context: A114858 A193491 A364271 * A263340 A114583 A114581

Adjacent sequences: A352059 A352060 A352061 * A352063 A352064 A352065

Keyword

sign

Author

Ilya Gutkovskiy, Mar 04 2022

Status

approved