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 A286935 #9 Feb 16 2025 08:33:45
%S A286935 1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,1,0,1,0,0,0,0,1,0,1,0,0,0,0,1,
%T A286935 0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,2,1,1,1,0,2,0,2,1,1,1,0,
%U A286935 2,0,2,1,1,1,1,3,1,2,1,1,2,1,3,1,2,1,1,2,1,3,1,2,1,2,3,2,3,1,3,2,2
%N A286935 Number of partitions of n into primes which are the difference of two consecutive cubes (A002407).
%H A286935 G. C. Greubel, <a href="/A286935/b286935.txt">Table of n, a(n) for n = 0..1000</a>
%H A286935 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CubanPrime.html">Cuban Prime</a>
%H A286935 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/HexNumber.html">Hex Number</a>
%H A286935 <a href="/index/Ce#CENTRALCUBE">Index entries for sequences related to centered polygonal numbers</a>
%H A286935 <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%F A286935 G.f.: Product_{k>=1} 1/(1 - x^A002407(k)).
%e A286935 a(56) = 2 because we have [37, 19] and [7, 7, 7, 7, 7, 7, 7, 7].
%t A286935 nmax = 100; CoefficientList[Series[Product[1/(1 - x^k), {k, Select[(Range[nmax] + 1)^3 - Range[nmax]^3, PrimeQ]}], {x, 0, nmax}], x]
%Y A286935 Cf. A000607, A002407, A003215, A280953, A286934.
%K A286935 nonn
%O A286935 0,57
%A A286935 _Ilya Gutkovskiy_, May 16 2017