A196273 Primes of the form n*2^(n-1)+1.
2, 5, 13, 193, 449, 114689, 1811939329, 2434970217729660813313, 4943727411754159833089, 6731298963614255244763987969, 2388456554926020709124028311441244161
Offset: 1
Keywords
Crossrefs
Cf. A005183.
Programs
-
Mathematica
Select[Table[n*2^(n-1)+1,{n,150}],PrimeQ] (* Harvey P. Dale, Jul 17 2018 *)
-
PARI
lista(nn) = {for (n=1, nn, if (isprime(p = n*2^(n-1)+1), print1(p, ", ")););} \\ Michel Marcus, Nov 09 2013
Comments