This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A334345 #9 Apr 24 2020 03:48:21 %S A334345 115,355,1266,1555,1686,1795,4195,4206,4962,5155,5298,6978,9235,10002, %T A334345 11230,13315,18822,21752,22602,23106,26072,29816,40616,42258,60056, %U A334345 60730,64690,68802,83586,87272,91736,94616,100990,107526,108910,109448,113192,121112,125436 %N A334345 Numbers k such that k and k+1 are both binary Moran numbers (A334344). %H A334345 Amiram Eldar, <a href="/A334345/b334345.txt">Table of n, a(n) for n = 1..10000</a> %e A334345 115 is a term since 115/A000120(115) = 23 and 116/A000120(116) = 29 are both prime numbers. %p A334345 q:= n-> (p-> is(p, integer) and isprime(p))(n/add(i, i=Bits[Split](n))): %p A334345 select(k-> q(k) and q(k+1), [$1..126000])[]; # _Alois P. Heinz_, Apr 23 2020 %t A334345 binMoranQ[n_] := PrimeQ[n / DigitCount[n, 2, 1]]; Select[Range[10^5], binMoranQ[#] && binMoranQ[# + 1] &] %Y A334345 Subsequence of A330931 and A334344. %Y A334345 Cf. A000120, A085775. %K A334345 nonn,base %O A334345 1,1 %A A334345 _Amiram Eldar_, Apr 23 2020