%I #24 Sep 23 2024 11:32:22
%S 0,1,3,6,10,21,45,55,66,78,210,666,990,2211,3321,5565,6555,8778,10011,
%T 90100,112101,222111,232221,443211,887778,5433456,5456556,5656566,
%U 5676765,22221111,22321221,34565455,88877778,211099878,212210901
%N Triangular numbers in which neighboring digits differ at most by 1. Allowed neighbors of 9 are 0, 8 and 9.
%C Includes (2 * 10^(2*k) - 10^k - 1)/9 and (8 * 10^(2*k) - 10^(k+1) + 2)/9 for k >= 1, and (2 * 10^(2*k) + 89 * 10^k + 989)/9 for k >= 2. - _Robert Israel_, Sep 22 2024
%H Robert Israel, <a href="/A068149/b068149.txt">Table of n, a(n) for n = 1..95</a> (n = 1 .. 65 from Andrew Howroyd)
%p f:= proc(n) local i;
%p seq(10*n+i, i= sort([n-1, n, n+1] mod 10))
%p end proc:
%p istri:= proc(n) issqr(1+8*n) end proc:
%p S:= [$1..9]: R:= 0,1,3,6: count:= 4:
%p for i from 1 while count < 95 do
%p for k from i to i+1 do
%p for s in S do
%p tmin:= ceil(sqrt(8*s*10^k+1));
%p if tmin::even then tmin:= tmin+1 fi;
%p for t from tmin to floor(sqrt(8*(s+1)*10^k-7)) by 2 do
%p x:= (t-1)/2; y:= x*(x+1)/2;
%p L:= convert(y,base,10);
%p if convert(L[2..-1]-L[1..-2] mod 10, set) subset {0,1,9} then
%p R:= R,y; count:= count+1;
%p fi od od od;
%p if count < 95 then S:= map(f, S) fi;
%p od:
%p R; # _Robert Israel_, Sep 23 2024
%t Do[a = IntegerDigits[n(n + 1)/2]; k = 1; l = Length[a]; While[k < l && (Abs[a[[k]]- a[[k + 1]]] < 2 || Abs[a[[k]] - a[[k + 1]]] > 8), k++ ]; If[k == l, Print[n(n + 1)/2]], {n, 0, 10^5} ]
%t Select[Accumulate[Range[0,30000]],Max[Select[Abs[Differences[ IntegerDigits[ #]]], #!=9&]]<2&] (* _Harvey P. Dale_, Oct 09 2013 *)
%Y Intersection of A000217 and A376425.
%K base,easy,nonn
%O 1,3
%A _Amarnath Murthy_, Feb 23 2002
%E Edited and extended by _Robert G. Wilson v_ and _Sascha Kurz_, Mar 01 2002
%E Offset changed by _Andrew Howroyd_, Sep 22 2024