%I #9 Apr 24 2020 03:48:21

%S 115,355,1266,1555,1686,1795,4195,4206,4962,5155,5298,6978,9235,10002,

%T 11230,13315,18822,21752,22602,23106,26072,29816,40616,42258,60056,

%U 60730,64690,68802,83586,87272,91736,94616,100990,107526,108910,109448,113192,121112,125436

%N Numbers k such that k and k+1 are both binary Moran numbers (A334344).

%H Amiram Eldar, <a href="/A334345/b334345.txt">Table of n, a(n) for n = 1..10000</a>

%e 115 is a term since 115/A000120(115) = 23 and 116/A000120(116) = 29 are both prime numbers.

%p q:= n-> (p-> is(p, integer) and isprime(p))(n/add(i, i=Bits[Split](n))):

%p select(k-> q(k) and q(k+1), [$1..126000])[]; # _Alois P. Heinz_, Apr 23 2020

%t binMoranQ[n_] := PrimeQ[n / DigitCount[n, 2, 1]]; Select[Range[10^5], binMoranQ[#] && binMoranQ[# + 1] &]

%Y Subsequence of A330931 and A334344.

%Y Cf. A000120, A085775.

%K nonn,base

%O 1,1

%A _Amiram Eldar_, Apr 23 2020