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 A086477 #6 Jan 13 2019 13:04:29
%S A086477 21377,44417,140417,151169,151937,155777,436097,539009,569729,570497,
%T A086477 608129,658817,704897,830849,865409,965249,1000577,1008257,1054337,
%U A086477 1130369,1214849,1311617,1419137,1429889,1556609,1618817,1779329
%N A086477 Primes p such that 128p+1 and (p-1)/128 are both prime.
%t A086477 Prime[ Select[ Range[141120], PrimeQ[(Prime[ # ] - 1)/2^7] && PrimeQ[2^7Prime[ # ] + 1] & ]]
%t A086477 Select[Prime[Range[140000]],AllTrue[{128#+1,(#-1)/128},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 13 2019 *)
%Y A086477 Cf. A085957, A085958, A086476, A086478.
%K A086477 nonn
%O A086477 1,1
%A A086477 _Amarnath Murthy_ and _Jason Earls_, Jul 22 2003
%E A086477 Edited and extended by _Robert G. Wilson v_, Jul 26 2003