Search: id:A057678 Results 1-1 of 1 results found. %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 Search completed in 0.002 seconds