OFFSET
1,2
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..631
EXAMPLE
a(1) = 1 because 2^1+(2*0+1)=3 and (2*0+1)*2^1+1=3 is prime pair for k=0,
a(2) = 2 because 2^2+(2*0+1)=5 and (2*0+1)*2^2+1=5 is prime pair for k=0, 2^2+(2*1+1)=7 and (2*1+1)*2^2+1=13 is prime pair for k=1,
a(3) = 1 because 2^3+(2*2+1)=13 and (2*2+1)*2^3+1=41 is prime pair for k=2.
MATHEMATICA
a[n_] := Length@Select[Range[0, n-1], PrimeQ[2^n + (2*# + 1)] && PrimeQ[(2*# + 1)*2^n + 1] &]; Array[a, 100] (* Giovanni Resta, Mar 04 2014 *)
PROG
(PARI) a(n)=sum(k=0, n-1, isprime(2^n+2*k+1)&&isprime((2*k+1)<<n+1)) \\ Charles R Greathouse IV, Mar 06 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Lopatin and Juri-Stepan Gerasimov, Mar 04 2014
EXTENSIONS
a(47)-a(87) from Giovanni Resta, Mar 04 2014
STATUS
approved