%I A057678
%S A057678 2,5,8179,524269
%N A057678 Primes of the form 2^p - p where p is prime.
%C A057678 Next term, if it exists, has more than 618 digits. - Emeric Deutsch (deutsch(AT)duke.poly.edu), 
               Mar 27 2005
%p A057678 a:=proc(n) if isprime(2^ithprime(n)-ithprime(n))=true then 2^ithprime(n)-ithprime(n) 
               else fi end: seq(a(n),n=1..310); (Deutsch)
%t A057678 lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p],AppendTo[lst,p]],{n,5!}];lst 
               [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 28 2009]
%Y A057678 Cf. A057663-A057665, A056677.
%Y A057678 Sequence in context: A082973 A082815 A115893 this_sequence A090071 A139062 
               A122760
%Y A057678 Adjacent sequences: A057675 A057676 A057677 this_sequence A057679 A057680 
               A057681
%K A057678 more,nonn
%O A057678 1,1
%A A057678 Labos E. (labos(AT)ana.sote.hu), Oct 19 2000