|
%I #31 Dec 04 2015 02:49:01
%S 2,3,13,41,43,131,1429,4861,58787,477638699,4861946401451,
%T 4861946401453,5632681584560312734993915705849145099,
%U 337485502510215975556783793455058624701,4180080073556524734514695828170907458428751314321,16435314834665426797069144960762886143367590394939
%N Prime numbers adjacent to Catalan numbers (A000108)
%C A230061 and A231885 are a subset of this sequence.
%C The following are twin primes off of the n-th Catalan number: 5, 25, 145, ..., (11500). - _Robert G. Wilson v_, Nov 10 2015
%H Bill McEachen, <a href="/A264042/b264042.txt">Table of n, a(n) for n = 1..52</a>
%e A000108(5)=42 and both 41 and 43 are adjacent prime numbers, and thus are sequence members.
%t Select[Union[# - 1, # + 1] &@ Table[(2 n)!/n!/(n + 1)!, {n, 100}], PrimeQ] (* _Michael De Vlieger_, Nov 05 2015 *)
%o (PARI) A264042()={for (n=1,10000,if(n<3,q=binomial(2*n,n)/(n+1)); if(n>2,q=2*qold1*(8*qold2+qold1)/(10*qold2-qold1)); qold2=qold1; qold1=q; if(ispseudoprime(q-1),print1(q-1,"," )); if(ispseudoprime(q+1),print1(q+1,"," )));}
%o (PARI) C=1; for(n=1,1e3, C*=2*(2*n-1)/(n+1); if(ispseudoprime(C-1), print1(C-1", ")); if(ispseudoprime(C+1), print1(C+1", "))) \\ _Charles R Greathouse IV_, Nov 05 2015
%Y Cf. A000108 (Catalan numbers).
%Y Cf. A173868 (smallest primes > Catalan numbers).
%Y Cf. A231885, A230061 (Catalan(n)-1 and Catalan(n)+1 that are primes).
%K nonn
%O 1,1
%A _Bill McEachen_, Nov 01 2015
|
