A067862 Numbers k that divide the sum of digits of 3^k.
1, 3, 6, 9, 27, 54, 180, 216, 225, 486
Offset: 1
Examples
6 divides the sum of digits of 3^6 (i.e., 7 + 2 + 9 = 18), so it belongs to the sequence.
Programs
-
Mathematica
Select[Range[1000000], Divisible[Total[IntegerDigits[3^#]], #] &] (* Harvey P. Dale, Dec 01 2010 *)
Extensions
Checked and found no further terms up to n = 1000000. - Harvey P. Dale, Dec 01 2010
Comments