%I A064150
%S A064150 1,2,3,4,6,8,9,10,12,15,16,18,20,21,24,25,27,28,30,32,33,35,36,39,40,
%T A064150 45,48,54,56,57,60,63,64,65,72,75,77,78,80,81,82,84,87,88,90,92,93,95,
%U A064150 96,99,100,105,108,111,112,115,117,120,132,133,135,136,144,145,150,152
%N A064150 Numbers divisible by the sum of their ternary digits.
%C A064150 a(n) mod A053735(a(n)) = 0. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Nov 25 2009]
%H A064150 Harry J. Smith, <a href="b064150.txt">Table of n, a(n) for n=0,...,1000</
               a>
%o A064150 (PARI) baseE(x, b)= { local(d,e,f); e=0; f=1; while (x>0, d=x-b*(x\b); 
               x\=b; e+=d*f; f*=10); return(e) } SumD(x)= { local(s); s=0; while 
               (x>9, s+=x-10*(x\10); x\=10); return(s + x) } { n=-1; for (m=1, 10^9, 
               if (m%(SumD(baseE(m, 3))) == 0, write("b064150.txt", n++, " ", m); 
               if (n==1000, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 
               Sep 09 2009]
%Y A064150 A005349 (Decimal), A049445 (Binary)
%Y A064150 Sequence in context: A143896 A160719 A085451 this_sequence A067023 A002183 
               A060306
%Y A064150 Adjacent sequences: A064147 A064148 A064149 this_sequence A064151 A064152 
               A064153
%K A064150 base,easy,nonn,nice,new
%O A064150 0,2
%A A064150 Len Smiley (smiley(AT)math.uaa.alaska.edu), Sep 11 2001
%E A064150 Corrected and extended by Vladeta Jovovic (vladeta(AT)eunet.rs), Sep 
               22 2001