OFFSET
1,1
COMMENTS
Primes in A156127.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..26
MATHEMATICA
Select[NestList[2 # + 3 &, 11, 30], PrimeQ] (* or *) Select[Table[7 2^n - 3, {n, 0, 150}], PrimeQ]
PROG
(Magma) x:=11; 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 7*2^n-3];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, May 14 2013
STATUS
approved