OFFSET
1,1
COMMENTS
Primes in A156198.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..37
MATHEMATICA
Select[NestList[2 # + 3 &, 19, 30], PrimeQ] (* or *) Select[Table[11 2^n - 3, {n, 0, 150}], PrimeQ]
PROG
(Magma) x:=19; a:=[n eq 1 select x else 2*Self(n-1)+3: n in [1..200]]; [a[i]: i in [1..#a] | IsPrime(a[i])]; /* or */ [a: n in [0..150] | IsPrime(a) where a is 11*2^n-3];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, May 14 2013
STATUS
approved