The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A325257 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A325257

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

#17 by Charles R Greathouse IV at Thu Sep 08 08:46:24 EDT 2022

PROG

(MAGMAMagma) 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

Discussion

Thu Sep 08

08:46

OEIS Server: https://oeis.org/edit/global/2944

#16 by Giovanni Resta at Thu Sep 05 19:24:03 EDT 2019

STATUS

reviewed

approved

#15 by Michel Marcus at Thu Sep 05 17:25:53 EDT 2019

STATUS

proposed

reviewed

#14 by Marius A. Burtea at Thu Sep 05 16:21:34 EDT 2019

STATUS

editing

proposed

#13 by Marius A. Burtea at Thu Sep 05 16:21:22 EDT 2019

PROG

(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

#12 by Marius A. Burtea at Thu Sep 05 16:20:10 EDT 2019

PROG

(MAGMA) sol:=[1]; for k n in [2..60] do Append(~sol, &+[NthPrime(Floor(kn/d))*sol[d]:d in Set(Divisors(kn)) diff {kn}]); end for; sol; // Marius A. Burtea, Sep 05 2019

#11 by Marius A. Burtea at Thu Sep 05 16:18:09 EDT 2019

PROG

(MAGMA) sol:=[1]; for k in [2..60] do Append(~sol, &+[NthPrime(Floor(k/d))*sol[d]:d in Set(Divisors(k)) diff {k}]); end for; sol; // Marius A. Burtea, Sep 05 2019

STATUS

approved

editing

#10 by Alois P. Heinz at Thu Sep 05 15:48:39 EDT 2019

STATUS

proposed

approved

#9 by Andrew Howroyd at Thu Sep 05 15:09:56 EDT 2019

STATUS

editing

proposed

#8 by Andrew Howroyd at Thu Sep 05 15:09:41 EDT 2019

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

STATUS

proposed

editing