OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
q:= n-> (p-> is(p, integer) and isprime(p))(n/add(i, i=Bits[Split](n))):
select(k-> q(k) and q(k+1), [$1..126000])[]; # Alois P. Heinz, Apr 23 2020
MATHEMATICA
binMoranQ[n_] := PrimeQ[n / DigitCount[n, 2, 1]]; Select[Range[10^5], binMoranQ[#] && binMoranQ[# + 1] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Apr 23 2020
STATUS
approved