A325257 a(1) = 1; a(n) = Sum_{d|n, d<n} prime(n/d) * a(d).

1, 3, 5, 16, 11, 43, 17, 88, 48, 95, 31, 320, 41, 145, 157, 486, 59, 554, 67, 696, 243, 265, 83, 2204, 218, 347, 458, 1062, 109, 1961, 127, 2668, 447, 493, 523, 5044, 157, 565, 577, 4780, 179, 3021, 191, 1938, 1998, 697, 211, 14590, 516, 2538, 823, 2526, 241, 6622, 939

Offset

1,2

Links

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

Formula

G.f. A(x) satisfies: A(x) = x + Sum_{k>=2} prime(k) * A(x^k).

Mathematica

a[n_] := If[n == 1, n, Sum[If[d < n, Prime[n/d] a[d], 0], {d, Divisors[n]}]]; Table[a[n], {n, 1, 55}]
nmax = 55; A[_] = 0; Do[A[x_] = x + Sum[Prime[k] A[x^k], {k, 2, nmax}] + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x] // Rest

Prog

(PARI) seq(n)={my(v=vector(n)); v[1]=1; for(n=2, #v, v[n] = sumdiv(n, d, v[d]*prime(n/d))); v} \\ Andrew Howroyd, Sep 05 2019
(Magma) sol:=[1]; for n in [2..60] do Append(~sol, &+[NthPrime(Floor(n/d))*sol[d]:d in Set(Divisors(n)) diff {n}]); end for; sol; // Marius A. Burtea, Sep 05 2019

Crossrefs

Cf. A000040, A007445, A008966 (parity of a(n)), A034696.

Sequence in context: A175138 A248795 A215444 * A006593 A115724 A039782

Adjacent sequences: A325254 A325255 A325256 * A325258 A325259 A325260

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 05 2019

Status

approved