login
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.
0
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.
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
KEYWORD
nonn
AUTHOR
Zak Seidov, Jul 14 2010
EXTENSIONS
Offset corrected. - R. J. Mathar, Jun 19 2021
STATUS
approved