A061879 First (leftmost) 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, 2080, 2091, 2190, 3070
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[3500],Total[Times@@@Partition[Riffle[IntegerDigits[#],{1,-1},{2,-1,2}],2]]==10&] (* Harvey P. Dale, Apr 30 2016 *)
-
PARI
isok(n) = {digs = digits(n); return (sum(i=1, #digs, (-1)^(i+1)*digs[i]) == 10);} \\ Michel Marcus, Jul 17 2013
Comments