login
Numbers n such that sum of digits of n equals the sum of digits of n^3.
9

%I #18 Feb 21 2024 01:45:02

%S 0,1,8,10,80,100,171,378,468,487,577,585,586,684,800,1000,1710,3780,

%T 4680,4870,4877,5770,5850,5851,5860,5868,6840,8000,10000,15877,17100,

%U 28845,37800,46800,48700,48770,57700,58500,58510,58600,58680,58968,59777

%N Numbers n such that sum of digits of n equals the sum of digits of n^3.

%H Harvey P. Dale, <a href="/A070276/b070276.txt">Table of n, a(n) for n = 1..100</a>

%t Select[Range[0,60000],Total[IntegerDigits[#]]==Total[IntegerDigits[ #^3]]&] (* _Harvey P. Dale_, May 10 2012 *)

%o (PARI) isok(n) = sumdigits(n) == sumdigits(n^3); \\ _Michel Marcus_, Aug 12 2017

%Y Cf. A007953, A004164.

%K easy,nonn,base

%O 1,3

%A _Benoit Cloitre_, May 09 2002