OFFSET
1,2
COMMENTS
See A189676.
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Apr 25 2011
STATUS
approved