login
Numbers n such that 2*n and n^3 have the same digit sum.
1

%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