%I
%S 1,3,6,9,27,54,180,216,225,486
%N Numbers n that divide the sum of digits of 3^n.
%C No further terms below 200000.  _Sascha Kurz_, Mar 19 2002
%C No further terms below 1000000  _Harvey P. Dale_, Dec 01 2010
%C Almost certainly there are no further terms.
%C All terms greater than 1 are multiples of 3.  _Alonso del Arte_, Oct 08 2013
%C Numbers n such that A175435(n) = 0.  _Michel Marcus_, Oct 09 2013
%e 6 divides the sum of digits of 3^6 (i.e., 7 + 2 + 9 = 18), so it belongs to the sequence.
%t Select[Range[1000000], Divisible[Total[IntegerDigits[3^#]], #] &] (* _Harvey P. Dale_, Dec 01 2010 *)
%Y Cf. A004166, A175169, A175435.
%K nonn,base
%O 1,2
%A _Shyam Sunder Gupta_ and _Amarnath Murthy_, Feb 16 2002
%E Checked and found no further terms up to n = 1000000.  _Harvey P. Dale_, Dec 01 2010
