OFFSET
0,1
COMMENTS
The same as A047699 except for a(0)=2.
MATHEMATICA
a=2; s={a}; X=Complement[Range[10^4], {0, a, 2a}];
Do[b=a+X[[1]]; X=Complement[X, s+b, b-s, {b, 2b}]; AppendTo[s, b]; a=b, {100}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jul 14 2010
EXTENSIONS
Offset corrected. - R. J. Mathar, Jun 19 2021
STATUS
approved