A087184 Partition numbers of the form 3*k+1.

1, 1, 7, 22, 385, 490, 1255, 3010, 3718, 12310, 17977, 21637, 75175, 89134, 204226, 386155, 451276, 831820, 1300156, 1741630, 5392783, 6185689, 10619863, 18004327, 20506255, 34262962, 49995925, 64112359, 104651419, 150198136

Offset: 1

Author

Reinhard Zumkeller, Aug 23 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000
• Eric Weisstein's World of Mathematics, Partition Function.
• Eric Weisstein's World of Mathematics, Partition Function P Congruences.

Crossrefs

Cf. A000041, A087181, A087183, A087185, A068907, A052001, A052003, A237276.

Programs

Mathematica

Select[PartitionsP[Range[0, 100]], Mod[#, 3] == 1 &] (* Amiram Eldar, May 22 2025 *)

Formula

a(n) = A000041(A237276(n)). - Amiram Eldar, May 22 2025