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 A087184 #16 May 22 2025 06:53:54 %S A087184 1,1,7,22,385,490,1255,3010,3718,12310,17977,21637,75175,89134,204226, %T A087184 386155,451276,831820,1300156,1741630,5392783,6185689,10619863, %U A087184 18004327,20506255,34262962,49995925,64112359,104651419,150198136 %N A087184 Partition numbers of the form 3*k+1. %H A087184 Amiram Eldar, <a href="/A087184/b087184.txt">Table of n, a(n) for n = 1..1000</a> %H A087184 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PartitionFunction.html">Partition Function</a>. %H A087184 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PartitionFunctionPCongruences.html">Partition Function P Congruences</a>. %F A087184 a(n) = A000041(A237276(n)). - _Amiram Eldar_, May 22 2025 %t A087184 Select[PartitionsP[Range[0, 100]], Mod[#, 3] == 1 &] (* _Amiram Eldar_, May 22 2025 *) %Y A087184 Cf. A000041, A087181, A087183, A087185, A068907, A052001, A052003, A237276. %K A087184 nonn %O A087184 1,3 %A A087184 _Reinhard Zumkeller_, Aug 23 2003