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 A334150 #21 Apr 18 2020 14:36:42
%S A334150 3,13,61,251,4093,32749,65521,8388593,33554393,1073741789,
%T A334150 137438953447,9007199254740881,36028797018963913,144115188075855859,
%U A334150 147573952589676412909,37778931862957161709471,75557863725914323419121,2417851639229258349412301,4835703278458516698824647
%N A334150 Primes p such that p AND q = 1, where q is the next prime after p and AND is the bitwise operation.
%t A334150 s = {}; p = 2; Do[q = NextPrime[p]; If[BitAnd[p, q] == 1, AppendTo[s, p]]; p = q, {10^5}]; s (* _Amiram Eldar_, Apr 16 2020 *)
%t A334150 Select[ NextPrime[ 2^Range[82], -1], BitAnd[#, NextPrime@ #] == 1 &] (* _Giovanni Resta_, Apr 16 2020 *)
%o A334150 (PARI) isok(p) = isprime(p) && (bitand(p, nextprime(p+1)) == 1);
%Y A334150 Cf. A175330.
%Y A334150 Subsequence of A014234 (largest prime <= 2^n).
%Y A334150 Cf. A214415 (exponents of corresponding powers of 2).
%K A334150 nonn,base
%O A334150 1,1
%A A334150 _Michel Marcus_, Apr 16 2020
%E A334150 a(9)-a(10) from _Amiram Eldar_, Apr 16 2020
%E A334150 a(11)-a(19) from _Giovanni Resta_, Apr 16 2020