|
|
|
|
2, 17, 15, 14, 135782, 13, 1272873030448788, 1137639, 112346812683513, 1112131415161718192, 1102855923792562911, 109512634765160, 1088585937070785555634040482525331010179495
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|