login
A368297
Prime plane partition numbers.
0
3, 13, 859, 5668963, 12733429, 281846923, 10499640707, 776633557947931, 59206066030052023, 13621664240071959464038764694637, 27217095019687611064080107410267607999874139, 208912772327685894433117242327777497768893400876928857463950152067659
OFFSET
1,1
COMMENTS
Prime values of A000219.
LINKS
Eric Weisstein's World of Mathematics, Plane Partition
FORMULA
a(n) = A000219(A285216(n)).
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, add(
a(n-j)*numtheory[sigma][2](j), j=1..n)/n)
end:
select(isprime, [seq(a(n), n=0..800)])[]; # Alois P. Heinz, Dec 20 2023
MATHEMATICA
nmax = 750; Select[CoefficientList[Series[Product[1/(1 - x^k)^k, {k, 1, nmax}], {x, 0, nmax}], x], PrimeQ]
CROSSREFS
Cf. A000219, A049575, A051005, A285216 (indices).
Sequence in context: A173759 A001039 A357855 * A065831 A092540 A073428
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 20 2023
STATUS
approved