A078810 - OEIS

%I #3 Mar 30 2012 17:27:40

%S 1,6,44,31,3,206,25,156,155,1251,101,1028844,87,9082,901,7801,69,

%T 687177,63,622551,6534,550555,535,51445051,61,46664,51582,44540815,

%U 445,411870051,423,390051,397373,358042,44958,34296978288,371,32089,336767

%N a(n) = A078218(n)/n.

%o (PARI) {for(n=1,39,k=floor(log(n)/log(10))+1; d=divisors(n); v=Str(); for(i=1,matsize(d)[2], v=concat(v,Str(d[i]))); s=eval(v); t=s+1; m=floor(log(s)/log(10))+1; d=k-m; s=s*10^d; t=t*10^d; b=1; while(b>0,q=floor(s/n); while(b>0&&(p=q*n)<t,if(p>=s,print1(q,","); b=0,q++)); s=10*s; t=10*t))}

%Y Cf. A078218.

%K base,nonn

%O 1,2

%A _Klaus Brockhaus_, Dec 06 2002