OFFSET
1,6
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..500
MAPLE
a:= proc(n) local m;
for m while not isprime(iquo(doublefactorial(2*n-1), m)+2)
do od; m
end:
seq(a(n), n=1..50); # Alois P. Heinz, Feb 18 2013
MATHEMATICA
a[n_] := Module[{m}, For[m = 1, True, m++, If[PrimeQ[Floor[(2n-1)!!/m]+2], Return[m]]]];
Array[a, 100] (* Jean-François Alcover, Oct 28 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Feb 14 2013
EXTENSIONS
More terms from Alois P. Heinz, Feb 18 2013
STATUS
approved