%I #15 Jan 08 2023 12:56:03
%S 0,1,10,5778,5886,6786,7875,17766,17955,27495,29646,31878,36585,38781,
%T 43956,46665,46971,49455,49770,55278,58653,61776,64980,68265,74691,
%U 75078,78606,85491,85905,89253,93096,93528,97461,109278,109746,117855
%N Triangular numbers for which the sum of the digits is a cube.
%H Harvey P. Dale, <a href="/A117803/b117803.txt">Table of n, a(n) for n = 1..1000</a>
%e 5778 is in the sequence because (1) it is a triangular number and (2) the sum of its digits 5+7+7+8=27 is a cube.
%t Select[Accumulate[Range[500]],IntegerQ[Power[Total[IntegerDigits[#]], (3)^-1]]&] (* _Harvey P. Dale_, Dec 19 2010 *)
%t Select[Accumulate[Range[0,500]],IntegerQ[Surd[Total[IntegerDigits[#]],3]]&] (* _Harvey P. Dale_, Jan 08 2023 *)
%Y Intersection of A000217 and A059094.
%Y Cf. A000578, A007953.
%K nonn,base
%O 1,3
%A Luc Stevens (lms022(AT)yahoo.com), Apr 29 2006
%E Corrected by _Harvey P. Dale_, Jan 08 2023