OFFSET
1,1
LINKS
MAPLE
A050528:=n->`if`(isprime(9*2^n+1), 9*2^n+1, NULL): seq(A050528(n), n=1..200); # Wesley Ivan Hurt, Aug 09 2014
MATHEMATICA
Select[9*2^Range[150]+1, PrimeQ] (* Harvey P. Dale, Aug 08 2014 *)
PROG
(Magma) [a: n in [0..150] | IsPrime(a) where a is (9*2^n+1) ]; // Vincenzo Librandi, Aug 09 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 29 1999
STATUS
approved