This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A060269 #8 Nov 05 2022 20:20:50 %S A060269 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 A060269 113,127,223,191,163,179,389,239,151,167,173,239,199,191,199,223,233, %U A060269 593,293,457,227,311,373,257 %N A060269 Distance of n-th primorial from closest prime. %e A060269 7th primorial is surrounded by {510529,510481} primes in {19,71} distances of which the smaller is 19=a(7). %p A060269 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 A060269 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 A060269 Cf. A002110, A038710, A007014, A058044, A038711. %K A060269 nonn %O A060269 3,5 %A A060269 _Labos Elemer_, Mar 23 2001