The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A359112

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

A359112

a(n) = Sum_{d|n} (n/d) * d^(n-d).
(history; published version)

#30 by Michel Marcus at Sun Aug 27 17:03:24 EDT 2023

STATUS

reviewed

approved

#29 by Stefano Spezia at Sun Aug 27 16:47:37 EDT 2023

STATUS

proposed

reviewed

#28 by Amiram Eldar at Sun Aug 27 16:32:14 EDT 2023

STATUS

editing

proposed

#27 by Amiram Eldar at Sun Aug 27 16:29:34 EDT 2023

MATHEMATICA

a[n_] := DivisorSum[n, #^(n-#)*n/# &]; Array[a, 29] (* Amiram Eldar, Aug 27 2023 *)

STATUS

approved

editing

#26 by Michael De Vlieger at Sat Dec 17 12:49:42 EST 2022

STATUS

reviewed

approved

#25 by Joerg Arndt at Sat Dec 17 09:23:39 EST 2022

STATUS

proposed

reviewed

#24 by Seiichi Manyama at Sat Dec 17 08:53:36 EST 2022

STATUS

editing

proposed

#23 by Seiichi Manyama at Sat Dec 17 08:42:37 EST 2022

CROSSREFS

Cf. A082245, A342628.

#22 by Seiichi Manyama at Sat Dec 17 08:35:48 EST 2022

PROG

(PARI) my(N=40, 30, x='x+O('x^N)); Vec(sum(k=1, N, x^k/(1-(k*x)^k)^2))

#21 by Seiichi Manyama at Sat Dec 17 08:35:30 EST 2022

DATA

1, 3, 4, 13, 6, 109, 8, 777, 2197, 7541, 12, 374809, 14, 1675773, 31954096, 100794385, 18, 7391871271, 20, 163547770441, 2037381161992, 570634875581, 24, 1275177760626097, 476837158203151, 605750431288341, 450286447756825720, 2258377795760750777, 30