OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
987654333 is a member because 987-654=333.
MAPLE
N:= 100: # to get the first N terms
count:= 0:
Res:= NULL:
for d from 1 while count < N do
for x1 from 10^(d-1) to 10^d-1 while count < N do
for x2 from 0 to x1 while count < N do
x3:= x1 - x2;
count:= count+1;
Res:= Res, x1*10^(2*d)+x2*10^d+x3;
od od od:
Res; # Robert Israel, Aug 09 2017
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Aug 09 2017
EXTENSIONS
More terms from Robert Israel, Aug 09 2017
STATUS
approved