|
%I #10 Mar 05 2024 14:45:07
%S 2,3,5,7,19,71,251,3433,48619,2704157,155117519,35345263801,
%T 2104098963721,30067266499541039,6892620648693261354601,
%U 6637553085023755473070799,410795449442059149332177041,399608854866744452032002440111,1520803477811874490019821888415218657
%N Primes within +1 or -1 of a central binomial coefficient C(2n,n).
%H Harvey P. Dale, <a href="/A117315/b117315.txt">Table of n, a(n) for n = 0..47</a>
%e 2 = C(0,0) + 1;
%e 19 = C(6,3) - 1.
%t b = Binomial[2#, # ] & /@ Range@60; Select[ Sort@ Join[b - 1, b, b + 1], PrimeQ@ # &] (* _Robert G. Wilson v_, Apr 27 2006 *)
%t Select[Flatten[Table[Binomial[2n,n]+{-1,1},{n,0,50}]],PrimeQ] (* _Harvey P. Dale_, Apr 08 2019 *)
%Y Cf. A000040, A000984.
%K easy,nonn
%O 0,1
%A _Greg Huber_, Apr 24 2006
%E More terms from _Robert G. Wilson v_, Apr 27 2006
%E More terms from _Harvey P. Dale_, Apr 08 2019
|
