A155844 Primes of the form q*p+2^p where p is prime, q=13.
47, 97, 131293, 140737488355939, 2361183241434822607771
Offset: 1
Keywords
Programs
-
Mathematica
lst={};Do[p=Prime[n];If[PrimeQ[p=13*p+2^p],AppendTo[lst,p]],{n,5!}];lst
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.
lst={};Do[p=Prime[n];If[PrimeQ[p=13*p+2^p],AppendTo[lst,p]],{n,5!}];lst
q=3;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
Select[2^#-3#&/@Prime[Range[900]],PrimeQ] (* Harvey P. Dale, Dec 09 2013 *)
q=5;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
Select[Table[2^p-5p,{p,Prime[Range[50]]}],PrimeQ] (* Harvey P. Dale, Jul 02 2018 *)
q=7;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
q=9;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
Select[2^#-9#&/@Prime[Range[50]],PrimeQ] (* Harvey P. Dale, Aug 26 2014 *)
q=15;lst={};Do[p=Prime[n];If[PrimeQ[p=2^p-p*q],AppendTo[lst,p]],{n,5!}];lst
Comments