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 A359093 #14 Feb 16 2025 08:34:04
%S A359093 2,2,2,2,2,2,2,10,11,6,7,11,11,4,11,9,10,29,24,29,29,29,29,29,36,28,
%T A359093 83,69,79,110,56,83,110,72,164,236,119,178,299,209,218,308,216,416,
%U A359093 596,506,277,443,579,589,1172,1217,991,1676,1779,2315,1325,1659,3125,2576
%N A359093 a(n) is the index of the smallest n-gonal number whose sum of digits is n.
%H A359093 Harvey P. Dale, <a href="/A359093/b359093.txt">Table of n, a(n) for n = 3..100</a>
%H A359093 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PolygonalNumber.html">Polygonal Number</a>
%t A359093 p[n_, k_] := (n - 2)*k*(k - 1)/2 + k; a[n_] := Module[{k = 1}, While[Plus @@ IntegerDigits[p[n, k]] != n, k++]; k]; Array[a, 60, 3] (* _Amiram Eldar_, Dec 16 2022 *)
%t A359093 Table[Module[{k=1},While[Total[IntegerDigits[PolygonalNumber[n,k]]]!=n,k++];k],{n,3,70}] (* _Harvey P. Dale_, Dec 27 2024 *)
%Y A359093 Cf. A007953, A359003.
%K A359093 nonn,base
%O A359093 3,1
%A A359093 _Ilya Gutkovskiy_, Dec 16 2022