|
%I M2859 N1150 #32 Dec 09 2023 07:04:38
%S 0,0,0,0,0,0,0,0,1,3,10,42,193,966,5215,30170,186234,1222065,8496274,
%T 62395234,482700052,3923995651,33444263516,298233514595,2777192597789,
%U 26959282453367,272370017131462,2859607460620573,31156130591833647,351808270089157421
%N Nearest integer to modified Bessel function K_n(5).
%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 429.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H G. C. Greubel, <a href="/A000249/b000249.txt">Table of n, a(n) for n = 0..500</a>
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%H <a href="/index/Be#Bessel">Index entries for sequences related to Bessel functions or polynomials</a>
%F b(n) = (2/5)*(n-1)*b(n-1) + b(n-2) where b(n) = K_n(5). - _Christian Krause_, Dec 09 2023
%p f := proc(n) round( evalf ( BesselK( n,5 ) )); end;
%t Table[BesselK[n, 5] // Round, {n, 0, 25}] (* _Jean-François Alcover_, Feb 06 2016 *)
%o (PARI) a(n)=besselk(n,5)\/1 \\ _Charles R Greathouse IV_, Oct 23 2023
%K nonn
%O 0,10
%A _N. J. A. Sloane_
%E Definition improved by _Sean A. Irvine_, Mar 28 2010
|
