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 A319184 #51 Jun 22 2025 15:15:56
%S A319184 0,1,5,6,12,17,18,22,34,35,39,40,51,57,69,70,74,75,86,92,108,117,120,
%T A319184 121,125,126,145,156,162,176,178,190,195,196,209,210,213,247,248,262,
%U A319184 270,279,282,287,288,321,330,354,365,376,386,387,399,404,405,424,425,438,457,475
%N A319184 Numbers that are sums of consecutive pentagonal numbers.
%H A319184 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PentagonalNumber.html">Pentagonal Number</a>
%t A319184 anmax = 1000; nmax = Floor[Sqrt[2*anmax/3]] + 1; Select[Union[Flatten[Table[Sum[k*(3*k-1)/2, {k, i, j}], {i, 0, nmax}, {j, i, nmax}]]], # <= anmax &] (* _Vaclav Kotesovec_, Dec 21 2018 *)
%t A319184 Module[{nn=20,pn},pn=PolygonalNumber[5,Range[0,nn]];Take[Union[Flatten[Table[Total/@Partition[pn,d,1],{d,nn}]]],60]] (* _Harvey P. Dale_, Jun 22 2025 *)
%Y A319184 Cf. A000326, A002411, A034705, A034706, A319185, A322636, A322637.
%K A319184 nonn
%O A319184 1,3
%A A319184 _Ilya Gutkovskiy_, Dec 21 2018