OFFSET
1,1
COMMENTS
MATHEMATICA
a[1] = 9; a[n_] := a[n] = Prime[(a[n - 1] + 1)/2]; Table[ a[n], {n, 22}] (* Robert G. Wilson v, Mar 24 2005 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Feb 28 2005
EXTENSIONS
a(14) - a(22) from Robert G. Wilson v, Mar 24 2005
STATUS
approved