%I #12 Sep 08 2022 08:45:56
%S 2,4,7,9,11,14,16,19,21,23,26,28,30,33,35,38,40,42,45,47,50,52,54,57,
%T 59,61,64,66,69,71,73,76,78,80,83,85,88,90,92,95,97,100,102,104,107,
%U 109,111,114,116,119,121,123,126,128,130,133,135,138,140,142,145,147,150,152,154,157,159,161,164,166,169,171,173,176
%N A190002/2.
%C See A180002.
%C First differs from A182761 at n=55: a(55)=130, A182761(55)=131. - _Bruno Berselli_, Jun 04 2013
%H G. C. Greubel, <a href="/A190004/b190004.txt">Table of n, a(n) for n = 1..10000</a>
%F A190002: a(n) = n + [n*(sinh(1))^2] + [n*(cosh(1))^2].
%F A190003: b(n) = n + [n*(csch(1))^2] + [n*(coth(1))^2].
%F A190004: a(n)/2 = (n + [n*(sinh(1))^2] + [n*(cosh(1))^2])/2.
%F A005408: c(n) = 2*n - 1.
%t r=1; s=Sinh[1]^2; t=Cosh[1]^2;
%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}] (* A190002 *)
%t Table[b[n], {n, 1, 120}] (* A190003 *)
%t Table[c[n], {n, 1, 120}] (* A005408 *)
%t Table[a[n]/2, {n, 1, 120}](* A190004 *)
%t Table[b[n]/2, {n, 1, 120}](* A182760 *)
%o (PARI) for(n=1,100, print1((n + floor(n*(sinh(1))^2) + floor(n*(cosh(1))^2))/2, ", ")) \\ _G. C. Greubel_, Jan 11 2018
%o (Magma) [(n + Floor(n*(Sinh(1))^2) + Floor(n*(Cosh(1))^2))/2: n in [1..100]]; // _G. C. Greubel_, Jan 11 2018
%Y Cf. A190002, A190003.
%K nonn
%O 1,1
%A _Clark Kimberling_, May 03 2011