%I #8 Aug 08 2015 20:18:17
%S 1,153,66,19110,21115,39621,8128,76636,83845,117855,158766,25878,
%T 188191,18669105,27081120,31868136,1308153,39547171,46508190,49795210,
%U 50215231,2210253,64428276,71706300,72306325,83224351,3774378,97601406,98413435
%N Diagonal of the triangle A095225.
%C n-th triangular number with digit string ending in n-th triangular number.
%C By definition the n-th smallest member of A000217 which has the same least significant decimal digits as A000217(n). - _R. J. Mathar_, Aug 03 2007
%e 1
%e 3 153
%e 6 36 66
%e 10 210 24310 88410
%e ...
%e Separating the triangular numbers for visualization with a bar, the sequence is
%e 1, 15|3, 6|6, 191|10, 211|15, 396|21, 81|28, 766|36,...
%p A000217 := proc(n) n*(n+1)/2 ; end: A095225 := proc(nrow) local a,i,dlen; i := nrow ; a := [A000217(i)] ; dlen := ilog10(a[1])+1 ; while nops(a) < nrow do i := i+1 ; if A000217(i) mod 10^dlen = a[1] then a := [op(a),A000217(i)] ; fi ; od ; RETURN(a) ; end: A095226 := proc(n) op(-1,A095225(n)) ; end: seq(op(A095226(n)),n=1..80) ; # _R. J. Mathar_, Aug 03 2007
%Y Cf. A095225.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Jun 10 2004
%E Corrected and extended by _R. J. Mathar_, Aug 03 2007
|