login
Triangular numbers containing 2k digits in which the sum of the first k digits = that of the rest.
3

%I #9 Sep 21 2024 17:36:44

%S 55,66,2415,3003,5050,5151,5995,8778,9045,113050,138075,171405,174345,

%T 177906,183921,198765,203203,216153,219453,234270,237705,239086,

%U 252405,255255,266815,267546,275653,279378,284635,293761,294528,306153,309291,329266,348195

%N Triangular numbers containing 2k digits in which the sum of the first k digits = that of the rest.

%H Harvey P. Dale, <a href="/A068898/b068898.txt">Table of n, a(n) for n = 1..1000</a>

%e 2415 is a term with 2+4 = 1+5.

%t dsQ[n_]:=Module[{idn=IntegerDigits[n],len=IntegerLength[n]/2}, Total[Take[ idn,len]] ==Total[ Take[idn,-len]]]; Select[Flatten[ Table[Table[(n(n+1))/2,{n,Ceiling[(Sqrt[8 10^i+1]-1)/2],Floor[ (Sqrt[8 10^(i+1)+1]-1)/2]}],{i,1,5,2}]],dsQ] (* _Harvey P. Dale_, Sep 29 2011 *)

%Y Intersection of A000217 and A240927.

%Y Cf. A068896, A068897.

%K easy,nonn,base

%O 1,1

%A _Amarnath Murthy_, Mar 21 2002

%E Corrected and extended by _Harvey P. Dale_, Sep 29 2011

%E Offset changed by _Andrew Howroyd_, Sep 21 2024