_Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), _, Dec 06 2002

(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))}

base,nonn,new

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

1, 5, 4, 33, 2468, 25, 176366, 1697, 13842, 1379, 11223344464, 13093, 949667608470093, 9707938, 8318740876, 8486944572, 7262164064771301847951, 87284065, 64977257421637963902716694, 689555658595, 5932429101505580572

1,2

(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))}

Cf. A078217.

base,nonn

Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Dec 06 2002

approved