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