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
Keywords
Links
- Ilya Gutkovskiy, Scatterplot of a(n) up to n=50000
Programs
-
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}]
Comments