A078811 - OEIS

A078811

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..21.

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

Cf. A078217.

Sequence in context: A091001 A297936 A298548 * A093399 A123233 A189748

Adjacent sequences: A078808 A078809 A078810 * A078812 A078813 A078814

KEYWORD

base,nonn

AUTHOR

Klaus Brockhaus, Dec 06 2002

STATUS

approved