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,1

Comments

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

Links

Table of n, a(n) for n=0..48.

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

Cf. A047699.

Sequence in context: A156909 A215121 A329850 * A275020 A122822 A295951

Adjacent sequences: A175566 A175567 A175568 * A175570 A175571 A175572

Keyword

nonn

Author

Zak Seidov, Jul 14 2010

Extensions

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

Status

approved