|
%I #7 Jul 13 2015 21:00:05
%S 2,17,15,14,135782,13,1272873030448788,1137639,112346812683513,
%T 1112131415161718192,1102855923792562911,109512634765160,
%U 1088585937070785555634040482525331010179495
%N a(n) = A077310(n)/n.
%p 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
%Y Cf. A077310, A077312.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 03 2002
%E More terms from _R. J. Mathar_, Apr 01 2007
|
