|
%I #13 Dec 24 2022 04:52:44
%S 1,6,279936,1679616,10077696,60466176,13060694016,
%T 4849687664788584363858837602739217760256,
%U 174588755932389037098918153698611839369216
%N Powers of 6 with digit sum also a power of 6.
%t Select[6^(Range[54]-1),IntegerQ[Log[6,Total[IntegerDigits[#]]]]&] (* _Stefano Spezia_, Dec 23 2022 *)
%Y Cf. A066002, A067499, A067500, A067501, A067502.
%K base,easy,nonn
%O 1,2
%A _Amarnath Murthy_, Feb 11 2002
%E More terms from _Sascha Kurz_, Mar 18 2002
|
