login
a(n) = A078217(n)/n.
1

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

%S 1,5,4,33,2468,25,176366,1697,13842,1379,11223344464,13093,

%T 949667608470093,9707938,8318740876,8486944572,7262164064771301847951,

%U 87284065,64977257421637963902716694,689555658595,5932429101505580572

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

%o (PARI) {for(n=1,21,k=floor(log(n)/log(10))+1; v=Str(); for(i=1,n,if(gcd(n,i)==1, v=concat(v,Str(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. A078217.

%K base,nonn

%O 1,2

%A _Klaus Brockhaus_, Dec 06 2002