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 A341154 #4 Feb 06 2021 08:53:43
%S A341154 1,1,2,3,5,6,10,13,19,24,34,42,58,71,94,116,151,182,234,282,354,424,
%T A341154 528,627,773,914,1113,1311,1585,1854,2227,2599,3095,3597,4262,4931,
%U A341154 5811,6704,7855,9035,10542,12080,14036,16047,18561,21161,24397,27736,31866
%N A341154 Number of partitions of 2*n into exactly n prime powers (including 1).
%F A341154 G.f.: Product_{p prime, k>=1} 1 / (1 - x^(p^k-1)).
%t A341154 nmax = 48; CoefficientList[Series[Product[1/(1 - Boole[PrimePowerQ[k + 1]] x^k), {k, 1, nmax}], {x, 0, nmax}], x]
%t A341154 a[n_] := a[n] = If[n == 0, 1, Sum[Sum[d Boole[PrimePowerQ[d + 1]], {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[a[n], {n, 0, 48}]
%Y A341154 Cf. A000961, A023893, A181062, A280954, A341153.
%K A341154 nonn
%O A341154 0,3
%A A341154 _Ilya Gutkovskiy_, Feb 06 2021