OFFSET
0,1
COMMENTS
Subset of A000217. - R. J. Mathar, Apr 07 2006
EXAMPLE
a(13) = 30135 as the internal digits are 013 with value 13.
MAPLE
midl := proc(n) local nshf, resul, dig ; resul := 0 ; dig := 0 ; nshf := iquo(n, 10) ; while nshf >= 10 do resul := 10^dig* irem(nshf, 10)+resul ; nshf := iquo(nshf, 10) ; dig := dig+1 ; od ; RETURN(resul) ; end: for n from 1 to 40 do for t from 1 to 1000000 do tri := t*(t+1)/2 ; if midl(tri) = n then printf("%a, ", tri) ; break ; elif t = 1000000 then printf("0, ") ; fi ; od: od : # R. J. Mathar, Apr 07 2006
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 06 2002
EXTENSIONS
Corrected and extended by R. J. Mathar, Apr 07 2006
STATUS
approved