OFFSET
1,1
COMMENTS
Very similar to A192869; here p+1 = q*2^k, where q must be prime.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
Kevin Broughan and Zhou Qizhi, Flat primes and thin primes, Bulletin of the Australian Mathematical Society 82:2 (2010), pp. 282-292.
FORMULA
a(n) >> n log^2 n is implicit in Broughan & Qizhi, see A192869. - Charles R Greathouse IV, Sep 15 2015
MATHEMATICA
Select[Prime[Range[2, 1000]], PrimeQ[(#+1)/2^IntegerExponent[#+1, 2]] &]
PROG
(PARI) is(n)=isprime(n) && n>4 && isprime((n+1)>>valuation(n+1, 2)) \\ Charles R Greathouse IV, Sep 15 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 07 2012
STATUS
approved