%I #15 Jan 21 2024 15:31:12
%S 1,2,2,2,2,4,16,8,4,64,2,2,8,2,4,118,32,82,178,4,8,4,16,16,298,64,16,
%T 194,2,298,316,8,334,32,226,386,4,2,358,8,178,254,206,206,218,8,4,254,
%U 452,914,346,2,758,394,362,394,556,422,32,346,1108,394,932,362,604,1382
%N Smallest m such that A001147(n)+m is prime.
%e A001147(1)=1!!=1, 1+1=2 is prime, so a(1)=1;
%e A001147(2)=3!!=3, 3+2=5 is prime, so a(2)=2;
%e A001147(7)=13!!=135135, 135135+16=135151 is prime, so a(7)=16.
%t Flatten[Table[Select[Range[1500],PrimeQ[(2n-1)!!+#]&,1],{n,66}]] (* _James C. McMahon_, Jan 20 2024 *)
%Y Cf. A103511, A001147.
%K nonn
%O 1,2
%A _Lei Zhou_, Feb 15 2005