login

%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