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