login
Triangular numbers for which the sum of the digits is a cube.
1

%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