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

1, 3, 5, 6, 8, 10, 11, 13, 15, 16, 18, 20, 22, 23, 25, 27, 28, 30, 32, 33, 35, 37, 38, 40, 42, 44, 45, 47, 49, 50, 52, 54, 55, 57, 59, 60, 62, 64, 66, 67, 69, 71, 72, 74, 76, 77, 79, 81, 83, 84, 86, 88, 89, 91, 93, 94, 96, 98, 99, 101, 103, 105, 106, 108, 110, 111, 113, 115, 116, 118, 120, 121, 123, 125, 127, 128, 130, 132, 133, 135, 137, 138, 140, 142, 143

Offset

1,2

Comments

See A189676.

Links

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

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, A189681.

Sequence in context: A138235 A329833 A059541 * A003152 A325913 A283965

Adjacent sequences: A189679 A189680 A189681 * A189683 A189684 A189685

Keyword

nonn

Author

Clark Kimberling, Apr 25 2011

Status

approved