A078214 a(n) = A078213(n)/n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1081, 10901, 1051, 100801, 100801, 1021, 10126, 102701, 101, 103601, 10396, 100801, 10351, 100801, 10201, 10117, 10351, 10101, 10126, 100801, 102331, 1008901, 102151, 102301, 101701, 101341, 10276, 100801, 101251, 10201

Offset

1,10

Links

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

Prog

(PARI) {for(n=1, 39, k=length(Str(n)); s=n; t=s+1; d=k-length(Str(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, m=0; z=p; while(z>0, y=divrem(z, 10); z=y[1]; m=m+y[2]); if(p>=s&&(p%10^k)==n&&(m%n)==0, print1(q, ", "); b=0, q++)); s=10*s; t=10*t))}

Crossrefs

Cf. A078213.

Sequence in context: A092135 A077740 A338407 * A251199 A220334 A221295

Adjacent sequences: A078211 A078212 A078213 * A078215 A078216 A078217

Keyword

base,nonn

Author

Amarnath Murthy, Nov 22 2002

Extensions

Edited and extended by Klaus Brockhaus, Dec 09 2002

Status

approved