A290725 - OEIS

%I #17 Feb 25 2020 13:45:44

%S 101,110,202,211,220,303,312,321,330,404,413,422,431,440,505,514,523,

%T 532,541,550,606,615,624,633,642,651,660,707,716,725,734,743,752,761,

%U 770,808,817,826,835,844,853,862,871,880,909,918,927,936,945,954,963,972,981,990,100010,100109,100208,100307

%N Numbers with 3k digits for some k such that the first k digits minus the middle k digits equals the last k digits.

%H Robert Israel, <a href="/A290725/b290725.txt">Table of n, a(n) for n = 1..10000</a>

%e 987654333 is a member because 987-654=333.

%p N:= 100: # to get the first N terms

%p count:= 0:

%p Res:= NULL:

%p for d from 1 while count < N do

%p   for x1 from 10^(d-1) to 10^d-1 while count < N do

%p     for x2 from 0 to x1 while count < N do

%p       x3:= x1 - x2;

%p       count:= count+1;

%p       Res:= Res, x1*10^(2*d)+x2*10^d+x3;

%p od od od:

%p Res; # _Robert Israel_, Aug 09 2017

%t kd3Q[n_]:=Module[{c=FromDigits/@Partition[IntegerDigits[n], IntegerLength[ n]/3]},c[[1]]-c[[2]]==c[[3]]]; Table[Select[Range[10^(3n-1),10^(3n)-1], kd3Q],{n,2}]//Flatten (* _Harvey P. Dale_, Feb 25 2020 *)

%Y A286846 is a subsequence.

%K nonn,base

%O 1,1

%A _N. J. A. Sloane_, Aug 09 2017

%E More terms from _Robert Israel_, Aug 09 2017