OFFSET
1,1
EXAMPLE
MATHEMATICA
Select[Table[n^2 2^n - 1, {n, 0, 150}], PrimeQ] (* Vincenzo Librandi, Jan 20 2017 *)
PROG
(Magma) [a: n in [1..45] | IsPrime(a) where a is n^2*2^n-1];
(PARI) select(ispseudoprime, apply(n->n^2*2^n - 1, [1..200])) \\ Charles R Greathouse IV, Jan 20 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 17 2017
STATUS
approved