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 A320279 #19 Feb 16 2025 08:33:56 %S A320279 1,0,1,1,1,1,3,1,3,4,3,4,7,4,7,10,7,10,15,10,15,21,15,21,29,21,29,39, %T A320279 29,39,53,39,53,68,53,68,91,68,91,114,91,114,148,114,148,184,148,184, %U A320279 232,184,232,287,232,287,355,287,355,434,355,434,531,434,531,641,531,641 %N A320279 Number of partitions of 2*n into parts that are the average of twin prime pairs (A014574). %H A320279 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TwinPrimes.html">Twin Primes</a> %H A320279 <a href="/index/Par#part">Index entries for sequences related to partitions</a> %F A320279 a(n) = [x^(2*n)] Product_{k>=1} 1/(1 - x^A014574(k)). %e A320279 a(10) = 3 because we have [12, 4, 4], [6, 6, 4, 4] and [4, 4, 4, 4, 4]. %t A320279 nmax = 65; Table[CoefficientList[Series[Product[1/(1 - Boole[PrimeQ[k + 1] && PrimeQ[k - 1]] x^k), {k, 1, 2 nmax}], {x, 0, 2 nmax}], x][[n]], {n, 1, 2 nmax + 1, 2}] %Y A320279 Cf. A001097, A014574, A283875. %K A320279 nonn %O A320279 0,7 %A A320279 _Ilya Gutkovskiy_, Oct 25 2018