|
%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
|
