A078810 a(n) = A078218(n)/n.

1, 6, 44, 31, 3, 206, 25, 156, 155, 1251, 101, 1028844, 87, 9082, 901, 7801, 69, 687177, 63, 622551, 6534, 550555, 535, 51445051, 61, 46664, 51582, 44540815, 445, 411870051, 423, 390051, 397373, 358042, 44958, 34296978288, 371, 32089, 336767

Offset

1,2

Links

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

Prog

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

Crossrefs

Cf. A078218.

Sequence in context: A090338 A090339 A225159 * A114074 A075337 A000561

Adjacent sequences: A078807 A078808 A078809 * A078811 A078812 A078813

Keyword

base,nonn

Author

Klaus Brockhaus, Dec 06 2002

Status

approved