A189681 - OEIS

%I #4 Mar 30 2012 18:57:25

%S 2,4,7,9,12,14,17,19,21,24,26,29,31,34,36,39,41,43,46,48,51,53,56,58,

%T 61,63,65,68,70,73,75,78,80,82,85,87,90,92,95,97,100,102,104,107,109,

%U 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

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

%t r=Pi/2; s=ArcSin[3/5]; t=ArcSin[4/5];

%t a[n_] := n + Floor[n*s/r] + Floor[n*t/r];

%t b[n_] := n + Floor[n*r/s] + Floor[n*t/s];

%t c[n_] := n + Floor[n*r/t] + Floor[n*s/t];

%t Table[a[n], {n, 1, 120}]  (*A005408*)

%t Table[b[n], {n, 1, 120}]  (*A189676*)

%t Table[c[n], {n, 1, 120}]  (*A189680*)

%t Table[b[n]/2, {n, 1, 120}]  (*A189681*)

%t Table[c[n]/2, {n, 1, 120}]  (*A189682*)

%Y Cf. A189676, A189680, A189682.

%K nonn

%O 1,1

%A _Clark Kimberling_, Apr 25 2011