OFFSET
1,1
COMMENTS
Primes in A196305.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..28
MATHEMATICA
Select[Table[15 2^n - 1, {n, 1, 300}], PrimeQ] (* Vincenzo Librandi, Feb 23 2014 *)
PROG
(PARI) for(n=1, 1e3, if(ispseudoprime(t=15<<n-1), print1(t", "))) \\ Charles R Greathouse IV, Oct 08 2011
(Magma) [a: n in [1..130] | IsPrime(a) where a is 15*2^n-1]; // Vincenzo Librandi, Feb 23 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Brad Clardy, Oct 07 2011
STATUS
approved