A175569 a(0)=2; for n>=0, a(n+1) = a(n) + x where x is the smallest positive number which is not equal to a(i) +/- a(k) for any i, k, 0<=k<=i<=n.

2, 3, 10, 19, 30, 44, 59, 77, 100, 124, 150, 181, 216, 252, 289, 328, 371, 416, 464, 515, 567, 620, 675, 739, 807, 879, 962, 1046, 1131, 1217, 1312, 1413, 1522, 1633, 1746, 1861, 1978, 2101, 2226, 2355, 2488, 2623, 2761, 2902, 3044, 3189, 3335, 3484, 3642

Offset: 0

Author

Zak Seidov, Jul 14 2010

Keywords

• nonn

Comments

The same as A047699 except for a(0)=2.

Crossrefs

Cf. A047699.

Programs

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

Extensions

Offset corrected. - R. J. Mathar, Jun 19 2021