cp's OEIS Frontend

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.

A234848 Triangular numbers with digits in nondecreasing order.

This page as a plain text file.
%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