OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[500]], (s = DigitCount[#-1, 2, 1]) == DigitCount[#+1, 2, 1] && s == 2^IntegerExponent[s, 2] &] (* Amiram Eldar, Jul 16 2023 *)
PROG
(PARI) ispow2(n)=n>>=valuation(n, 2); n==1
is(n)=my(h=hammingweight(n-1)); ispow2(h) && h==hammingweight(n+1) && isprime(n) \\ Charles R Greathouse IV, Mar 05 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Lopatin and Juri-Stepan Gerasimov, Feb 25 2014
EXTENSIONS
2311 removed by Giovanni Resta, Mar 01 2014
STATUS
approved