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 A155845 #5 Dec 09 2013 10:54:56
%S A155845 -2,17,107,524231,8388539,162259276829213363391578010287807
%N A155845 Primes of the form 2^p-p*q where p is prime,q=3.
%C A155845 The next term has 1342 digits. - _Harvey P. Dale_, Dec 09 2013
%t A155845 q=3;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
%t A155845 Select[2^#-3#&/@Prime[Range[900]],PrimeQ] (* _Harvey P. Dale_, Dec 09 2013 *)
%Y A155845 Cf. A057664, A155841, A155842, A155843, A155844, A057678
%K A155845 sign
%O A155845 1,1
%A A155845 _Vladimir Joseph Stephan Orlovsky_, Jan 28 2009