This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A368297 #14 Feb 16 2025 08:34:06
%S A368297 3,13,859,5668963,12733429,281846923,10499640707,776633557947931,
%T A368297 59206066030052023,13621664240071959464038764694637,
%U A368297 27217095019687611064080107410267607999874139,208912772327685894433117242327777497768893400876928857463950152067659
%N A368297 Prime plane partition numbers.
%C A368297 Prime values of A000219.
%H A368297 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PlanePartition.html">Plane Partition</a>
%F A368297 a(n) = A000219(A285216(n)).
%p A368297 a:= proc(n) option remember; `if`(n=0, 1, add(
%p A368297 a(n-j)*numtheory[sigma][2](j), j=1..n)/n)
%p A368297 end:
%p A368297 select(isprime, [seq(a(n), n=0..800)])[]; # _Alois P. Heinz_, Dec 20 2023
%t A368297 nmax = 750; Select[CoefficientList[Series[Product[1/(1 - x^k)^k, {k, 1, nmax}], {x, 0, nmax}], x], PrimeQ]
%Y A368297 Cf. A000219, A049575, A051005, A285216 (indices).
%K A368297 nonn
%O A368297 1,1
%A A368297 _Ilya Gutkovskiy_, Dec 20 2023