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 A234848 #19 Apr 06 2023 10:19:25 %S A234848 0,1,3,6,15,28,36,45,55,66,78,136,378,666,1128,1225,1378,2278,2346, %T A234848 2556,5778,12246,13366,22366,22578,35778,111156,222778,223446,333336, %U A234848 1113778,1222266,1457778,2235555,3557778,22227778,22234446,111116778,156777778,222446778 %N A234848 Triangular numbers with digits in nondecreasing order. %C A234848 Beyond 222446778, all terms are k(k+1)/2 for k = 2s7, 6s7, or 6s8, where s stands for any number of 6's. - _T. D. Noe_, Jan 01 2014 %H A234848 T. D. Noe, <a href="/A234848/b234848.txt">Table of n, a(n) for n = 1..328</a> (terms less than 10^200) %t A234848 inOrder[nums_] := Min[Differences[nums]] >= 0; t = {}; Do[tri = n*(n+1)/2; If[inOrder[IntegerDigits[tri]], AppendTo[t, tri]], {n, 0, 10^5}]; t (* _T. D. Noe_, Dec 31 2013 *) %t A234848 Select[Accumulate[Range[0,22000]],Min[Differences[IntegerDigits[#]]]>=0&] (* _Harvey P. Dale_, Apr 06 2023 *) %o A234848 (Python) %o A234848 from itertools import chain, count, islice, combinations_with_replacement %o A234848 from sympy import integer_nthroot %o A234848 def A234848_gen(): # generator of terms %o A234848 return chain((0,), (n for n in (int(''.join(i)) for l in count(1) for i in combinations_with_replacement('123456789',l)) if integer_nthroot(8*n+1,2)[1])) %o A234848 A234848_list = list(islice(A234848_gen(),50)) # _Chai Wah Wu_, May 22 2022 %Y A234848 Cf. A000217, A028820. %K A234848 base,nonn %O A234848 1,3 %A A234848 _Zak Seidov_, Dec 31 2013