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 A086478 #9 Dec 13 2018 12:19:14
%S A086478 183809,220673,420353,629249,696833,1772033,1904129,2186753,4137473,
%T A086478 4930049,5575169,6435329,7040513,8355329,9405953,9491969,9882113,
%U A086478 10112513,10373633,11580929,11648513,11725313,13209089,13445633
%N A086478 Primes p such that 512p+1 and (p-1)/512 are both prime.
%t A086478 Prime[ Select[ Range[957580], PrimeQ[(Prime[ # ] - 1)/512] && PrimeQ[512Prime[ # ] + 1] &]]
%t A086478 Select[Prime[Range[900000]],AllTrue[{512#+1,(#-1)/512},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 13 2018 *)
%Y A086478 Cf. A085957, A085958, A086476, A086477.
%K A086478 nonn
%O A086478 1,1
%A A086478 _Jason Earls_ and _Amarnath Murthy_, Jul 22 2003
%E A086478 Edited and extended by _Robert G. Wilson v_, Jul 26 2003