login
A067503
Powers of 6 with digit sum also a power of 6.
8
1, 6, 279936, 1679616, 10077696, 60466176, 13060694016, 4849687664788584363858837602739217760256, 174588755932389037098918153698611839369216
OFFSET
1,2
MATHEMATICA
Select[6^(Range[54]-1), IntegerQ[Log[6, Total[IntegerDigits[#]]]]&] (* Stefano Spezia, Dec 23 2022 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 11 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 18 2002
STATUS
approved