A369701 AGM transform of the numbers of partitions (A000041) of the positive numbers.

0, 1, 54, 6961, 1233318, 487047961, 290742044714, 347251334512896, 683674076661539256, 2495297738110474036224, 14634026423059969492022144, 156866160296614402006202168641, 2612384850652790986902453089127552, 74149419491027435547521058057290511849, 3283295561194682488327071117265547706288707

Offset: 1

Author

Paolo Xausa, Jan 29 2024

Keywords

• nonn

Comments

See A368366 for the description of the AGM transform.

Links

• Paolo Xausa, Table of n, a(n) for n = 1..100

Crossrefs

Cf. A368366.

Cf. A000041, A000312, A026905, A058694.

Programs

Mathematica

A369701[n_] := With[{p = PartitionsP[Range[n]]}, Total[p]^n - n^n*Apply[Times, p]];
Array[A369701, 15]

Formula

a(n) = A026905(n)^n - A000312(n)*A058694(n).