%I #9 Sep 08 2022 08:46:15
%S 0,171,324,378,468,684,1710,3240,3780,4680,6840,17100,28845,29241,
%T 32400,34884,37800,46800,46944,48924,68400,69174,84348,171000,242424,
%U 288450,292410,324000,348840,378000,467424,468000,469440,489240,493794,684000,691740
%N Numbers n such that 2*n and n^3 have the same digit sum.
%H G. C. Greubel, <a href="/A266315/b266315.txt">Table of n, a(n) for n = 1..160</a>
%e 171 is in the sequence because 171^3 = 5000211 and 2*171 = 342 have the same digit sum: 9.
%t Select[Range[0, 7 10^5], Total[IntegerDigits[2 #]] == Total[IntegerDigits[#^3]] &]
%o (Magma) [n: n in [0..2*10^6] | &+Intseq(2*n) eq &+Intseq(n^3)];
%o (PARI) isok(n) = sumdigits(2*n)==sumdigits(n^3); \\ _Michel Marcus_, Jan 02 2016
%Y Cf. A000578, A005843, A070276, A260906.
%K nonn,base
%O 1,2
%A _Vincenzo Librandi_, Jan 01 2016