A101317 Numbers n with >= 3 digits such that sum of external digits = sum of internal digits.

110, 121, 132, 143, 154, 165, 176, 187, 198, 220, 231, 242, 253, 264, 275, 286, 297, 330, 341, 352, 363, 374, 385, 396, 440, 451, 462, 473, 484, 495, 550, 561, 572, 583, 594, 660, 671, 682, 693, 770, 781, 792, 880, 891, 990, 1010, 1021, 1032, 1043, 1054

Offset: 1

Author

Eric Angelini, Jan 25 2005

Keywords

• base
• easy
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

Mathematica

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 *)