OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..37
MATHEMATICA
Rest[Select[NestList[2#+3&, 2, 500], PrimeQ]] (* Harvey P. Dale, Nov 17 2012 *)
PROG
(Magma) x:=2; a:=[n eq 1 select 2*x+3 else 2*Self(n-1)+3: n in [1..120]]; [a[i]: i in [1..#a] | IsPrime(a[i])]; // Bruno Berselli, May 14 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jan 27 2010
STATUS
approved