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,1

Links

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

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

Crossrefs

Sequence in context: A084042 A110735 A277622 * A274945 A274944 A275343

Adjacent sequences: A101314 A101315 A101316 * A101318 A101319 A101320

Keyword

base,easy,nonn

Author

Eric Angelini, Jan 25 2005

Status

approved