OFFSET
1,2
PROG
(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))}
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Dec 06 2002
STATUS
approved