|
%I #8 Nov 05 2022 20:20:50
%S 1,1,1,1,19,23,37,41,1,59,1,47,67,59,61,89,89,103,79,83,89,1,103,131,
%T 113,127,223,191,163,179,389,239,151,167,173,239,199,191,199,223,233,
%U 593,293,457,227,311,373,257
%N Distance of n-th primorial from closest prime.
%e 7th primorial is surrounded by {510529,510481} primes in {19,71} distances of which the smaller is 19=a(7).
%p with(numtheory): [seq(min(nextprime(product(ithprime(j),j=1..n))-product(ithprime(j),j= >1..n),product(ithprime(j),j=1..n)-prevprime(product(ithprime(j),j=1..n >))), n=3..50)];
%t dnp[n_]:=Module[{a=NextPrime[n,-1],b=NextPrime[n]},Min[n-a,b-n]]; dnp/@ FoldList[Times,Prime[Range[50]]] (* _Harvey P. Dale_, Jul 11 2017 *)
%Y Cf. A002110, A038710, A007014, A058044, A038711.
%K nonn
%O 3,5
%A _Labos Elemer_, Mar 23 2001
|
