A060978 |First digit - second digit + third digit - fourth digit ...| = 10.

109, 208, 219, 307, 318, 329, 406, 417, 428, 439, 505, 516, 527, 538, 549, 604, 615, 626, 637, 648, 659, 703, 714, 725, 736, 747, 758, 769, 802, 813, 824, 835, 846, 857, 868, 879, 901, 912, 923, 934, 945, 956, 967, 978, 989, 1090, 1209, 1308, 1319, 1407

Offset

1,1

Links

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

Mathematica

Do[ a = IntegerDigits[ n ]; l = Length[ a ]; e = o = {}; Do[ o = Append[ o, a[ [ 2k - 1 ] ] ], {k, 1, l/2 + .5} ]; Do[ e = Append[ e, a[ [ 2k ] ] ], {k, 1, l/2} ]; If[ Abs[ Apply[ Plus, o ] - Apply[ Plus, e ] ] == 10, Print[ n ] ], {n, 1, 2000} ]
Select[Range[1500], Abs[Total[Times@@@Partition[Riffle[IntegerDigits[#], {1, -1}, {2, -1, 2}], 2]]]==10&] (* Harvey P. Dale, Apr 13 2020 *)

Crossrefs

Cf. A008593, A060978-A060980, A060982, A061470-A061479, A061870-A061882.

Sequence in context: A142224 A054267 A142301 * A061879 A171121 A044341

Adjacent sequences: A060975 A060976 A060977 * A060979 A060980 A060981

Keyword

nonn,base,easy

Author

Robert G. Wilson v, May 10 2001

Status

approved