|
%I #8 Sep 08 2022 08:45:56
%S 7,14,21,28,36,43,50,57,65,72,79,86,95,102,109,116,124,131,138,145,
%T 152,160,167,174,181,190,197,204,211,219,226,233,240,248,255,262,269,
%U 276,285,292,299,306,314,321,328,335,343,350,357,364,372,380,387,394,401,409,416,423,430,438,445,452,459,467,475,482,489,497,504,511,518,525,533,540,547,554,562
%N c(n) = n + [n*r/t] + [n*s/t]; r=1, s=sin(2pi/5), t=cos(2pi/5).
%C See A189929.
%H G. C. Greubel, <a href="/A189931/b189931.txt">Table of n, a(n) for n = 1..10000</a>
%F A189929: a(n) = n + [n*sin(2*pi/5)] + [n*cos(2*pi/5)].
%F A189930: b(n) = n + [n*csc(2*pi/5)] + [n*cot(2*pi/5)].
%F A189931: c(n) = n + [n*sec(2*pi/5)] + [n*tan(2*pi/5)].
%t r=1; s=Sin[2Pi/5]; t=Cos[2Pi/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}] (*A189929*)
%t Table[b[n], {n, 1, 120}] (*A189930*)
%t Table[c[n], {n, 1, 120}] (*A189931*)
%o (PARI) for(n=1,100, print1(n + floor(n/cos(2*Pi/5)) + floor(n*tan(2*Pi/5)), ", ")) \\ _G. C. Greubel_, Jan 13 2018
%o (Magma) C<i> := ComplexField(); [n + Floor(n/Cos(2*Pi(C)/5)) + Floor(n*Tan(2*Pi(C)/5)): n in [1..100]]; // _G. C. Greubel_, Jan 13 2018
%Y Cf. A189929, A189930.
%K nonn
%O 1,1
%A _Clark Kimberling_, May 01 2011
|
