OFFSET
1,2
COMMENTS
1
23
456
7810
11121
314151...
MATHEMATICA
t = Flatten[ IntegerDigits[ Range[1800], 9]]; t[[Table[n(n + 1)/2, {n, 105}]]]
PROG
(PARI) { pln=0; Trn = 1; Trd=1;
for(ixp=1, 1625, casi = ixp; cvst=0;
while(casi != 0, cvd = casi%9;
cvst=10*cvst + cvd + 1; casi = (casi - cvd) / 9 );
while(cvst !=0, ptch = cvst%10; pln++;
if(Trn==pln, print1(ptch-1, ", "); Trd++; Trn=Trn+Trd);
cvst = (cvst - ptch) / 10 ) ) } \\\ Douglas Latimer, Apr 23 2012
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Mar 16 2005
STATUS
approved