A067503 Powers of 6 with digit sum also a power of 6.
1, 6, 279936, 1679616, 10077696, 60466176, 13060694016, 4849687664788584363858837602739217760256, 174588755932389037098918153698611839369216
Offset: 1
Programs
-
Mathematica
Select[6^(Range[54]-1),IntegerQ[Log[6,Total[IntegerDigits[#]]]]&] (* Stefano Spezia, Dec 23 2022 *)
Extensions
More terms from Sascha Kurz, Mar 18 2002