A123679 a(n) = 2*n - A123088(n).

1, 0, 0, 1, 0, 1, 2, 0, 0, 1, 2, 3, 0, 0, 0, 1, 0, 1, 2, 3, 4, 0, 0, 0, 0, 1, 0, 1, 0, 1, 2, 0, 0, 1, 2, 3, 4, 5, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 2, 0, 0, 1, 2, 0, 0, 1, 2, 3, 0, 0, 0, 1, 0, 1, 2, 3, 4, 5, 6, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 0, 0, 1, 2, 0, 0, 1, 2, 0, 0, 1, 2, 3, 0, 0, 0, 1, 0

Offset

1,7

Comments

For k > 1, apparently the smallest n such that a(n) = k is 2^k + k + 1 (see A005126).

Links

Table of n, a(n) for n=1..105.

Prog

(PARI) {m=105; w=vector(2*m); print1(1, ", "); for(n=2, m, k=n; while(w[k], k--); a=n+k; print1(2*n-a, ", "); w[a]=1)}

Crossrefs

Cf. A123088, A005126.

Sequence in context: A301593 A089731 A097098 * A167948 A111755 A144528

Adjacent sequences: A123676 A123677 A123678 * A123680 A123681 A123682

Keyword

nonn

Author

Klaus Brockhaus, Oct 05 2006

Status

approved