|
%I #6 Mar 15 2018 14:12:00
%S 110,121,132,143,154,165,176,187,198,220,231,242,253,264,275,286,297,
%T 330,341,352,363,374,385,396,440,451,462,473,484,495,550,561,572,583,
%U 594,660,671,682,693,770,781,792,880,891,990,1010,1021,1032,1043,1054
%N Numbers n with >= 3 digits such that sum of external digits = sum of internal digits.
%H Harvey P. Dale, <a href="/A101317/b101317.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[100,1100],With[{c=TakeList[IntegerDigits[#],{1,IntegerLength[ #]-2,1}]},Total[c[[1]]+c[[3]]]==Total[c[[2]]]]&] (* Requires Mathematica version 11 or later *) (* _Harvey P. Dale_, Mar 15 2018 *)
%K base,easy,nonn
%O 1,1
%A _Eric Angelini_, Jan 25 2005
|
