%I A114136
%S A114136 1,3,5,7,9,18,21,24,38,58,78,98,298,498,501,537,698,702,707,711,716,898,
%T A114136 1141,1197,1501,1557,1998,2703,2706,2712,2715,3998,4502,4509,4529,4536,
%U A114136 5998,7998,8001,8097,9998,29998,36001,36297,49998,54504,54507,54510
%N A114136 n divides sum of digits of all numbers from 1 to n.
%C A114136 a(n) | A037123(a(n)). Sequence is infinite, including 10^(2k)-2 for all
k >= 1. For each k >= 1, there is at least one n with A037123(a(n))/
a(n) = k.
%p A114136 P:=proc(n) local i,k,w,sp; sp:=0; for i from 1 by 1 to n do w:=0; k:=i;
while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; sp:=sp+w;
if sp/i=trunc(sp/i) then print(i); fi; od; end: P(5000); - Paolo
P. Lava (ppl(AT)spl.at), Jul 30 2007
%Y A114136 Sequence in context: A084229 A144753 A057482 this_sequence A025072 A083107
A003052
%Y A114136 Adjacent sequences: A114133 A114134 A114135 this_sequence A114137 A114138
A114139
%K A114136 base,nonn
%O A114136 1,2
%A A114136 David W. Wilson (davidwwilson(AT)comcast.net), Feb 02 2006
|