login
A078214
a(n) = A078213(n)/n.
1
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
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
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 22 2002
EXTENSIONS
Edited and extended by Klaus Brockhaus, Dec 09 2002
STATUS
approved