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 A265426 #11 Dec 23 2015 14:20:56 %S A265426 2,3,5,17,257,1367,65537,2960687 %N A265426 Primes p such that p - 1 is a binary Keith number (A162724). %C A265426 See A162724 (binary Keith numbers) and A007629 (Keith numbers) for definitions. %C A265426 Primes of the form A162724(n)+1. %C A265426 Fermat primes (A019434) are terms. %C A265426 The next term, if it exists, must be greater than 17*10^9. %C A265426 Union of primes p of the form A162363(n)+1 and A000079(m)+1 for a some n or m. %t A265426 fQ[n_] := Module[{b = IntegerDigits[n, 2], s}, s = Total@ b; If[s <= 1, True, k = 1; While[s = 2 s - b[[k]]; s < n, k++]; s == n]]; Select[Prime@ Range[10^6], fQ[# - 1] &] (* _Michael De Vlieger_, Dec 09 2015, after _T. D. Noe_ at A162724 *) %Y A265426 Cf. A000079, A007629, A019434, A162363, A162724. %K A265426 nonn,more %O A265426 1,1 %A A265426 _Jaroslav Krizek_, Dec 08 2015