A067864 Numbers k such that k divides the sum of digits of 6^k.
1, 3, 9, 18, 90
Offset: 1
Examples
a(1)=3, so 3 divides the sum of digits of 6^3 (i.e., 2 + 1 + 6 = 9).
Programs
-
Mathematica
Select[Range[100],Mod[Total[IntegerDigits[6^#]],#]==0&] (* Harvey P. Dale, Nov 09 2024 *)
Comments