A189681 (A189676)/2; from a 3-way partition of the positive integers.

2, 4, 7, 9, 12, 14, 17, 19, 21, 24, 26, 29, 31, 34, 36, 39, 41, 43, 46, 48, 51, 53, 56, 58, 61, 63, 65, 68, 70, 73, 75, 78, 80, 82, 85, 87, 90, 92, 95, 97, 100, 102, 104, 107, 109, 112, 114, 117, 119, 122, 124, 126, 129, 131, 134, 136, 139, 141, 144, 146, 148, 151, 153, 156, 158, 161, 163, 165, 168, 170, 173, 175, 178, 180, 183, 185, 187, 190, 192, 195, 197, 200, 202, 205

Offset

1,1

Links

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

Mathematica

r=Pi/2; s=ArcSin[3/5]; t=ArcSin[4/5];
a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
c[n_] := n + Floor[n*r/t] + Floor[n*s/t];
Table[a[n], {n, 1, 120}]  (*A005408*)
Table[b[n], {n, 1, 120}]  (*A189676*)
Table[c[n], {n, 1, 120}]  (*A189680*)
Table[b[n]/2, {n, 1, 120}]  (*A189681*)
Table[c[n]/2, {n, 1, 120}]  (*A189682*)

Crossrefs

Cf. A189676, A189680, A189682.

Sequence in context: A189939 A219637 A189470 * A329834 A059542 A190324

Adjacent sequences: A189678 A189679 A189680 * A189682 A189683 A189684

Keyword

nonn

Author

Clark Kimberling, Apr 25 2011

Status

approved