OFFSET
1,1
MAPLE
A055642 := proc(n) floor(log[10](n))+1 ; end : icat := proc(istrt, iend) local resul, i ; resul := istrt ; for i from istrt+1 to iend do resul := 10^A055642(i)*resul+i ; od ; RETURN(resul) ; end: A077310 := proc(n) local istrt, iend ; istrt := n+1 ; iend := n+1 ; while icat(istrt, iend) mod n <> 0 do iend := iend+1 ; od ; RETURN( icat(istrt, iend)) : end: A077311 := proc(n) A077310(n)/n ; end: for n from 1 to 20 do printf("%d, ", A077311(n)) ; od ; # R. J. Mathar, Apr 01 2007
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 03 2002
EXTENSIONS
More terms from R. J. Mathar, Apr 01 2007
STATUS
approved