|
%I #13 Sep 08 2022 08:45:57
%S 2,5,8,11,13,17,20,23,25,28,31,35,37,40,43,46,48,52,55,58,60,63,67,70,
%T 73,75,78,81,85,87,90,93,96,98,102,105,108,110,113,117,120,122,125,
%U 128,131,135,137,140,143,146,148,152,155,158,160,163,166,170,172,175,178,181,184,187,190,193,196,198,202,205,208,210
%N a(n) = n + [n*r/s] + [n*t/s]; r=1, s=csch(1), t=sech(1).
%C See A190304.
%H G. C. Greubel, <a href="/A190305/b190305.txt">Table of n, a(n) for n = 1..10000</a>
%F A190304: a(n)=n+[n*csch(1)]+[n*sech(1)].
%F A190305: b(n)=n+[n*sinh(1)]+[n*tanh(1)].
%F A190306: c(n)=n+[n*cosh(1)]+[n*coth(1)].
%t r=1; s=Csch[1]; t=Sech[1];
%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}] (* A190304 *)
%t Table[b[n], {n, 1, 120}] (* A190305 *)
%t Table[c[n], {n, 1, 120}] (* A190306 *)
%o (PARI) for(n=1, 30, print1(n + floor(n*sinh(1)) + floor(n*tanh(1)), ", ")) \\ _G. C. Greubel_, Dec 29 2017
%o (Magma) [n + Floor(n*Sinh(1)) + Floor(n*Tanh(1)): n in [1..30]]; // _G. C. Greubel_, Dec 29 2017
%Y Cf. A190304, A190306.
%K nonn
%O 1,1
%A _Clark Kimberling_, May 07 2011
%E Definition corrected by _Georg Fischer_, Jun 10 2020
|
