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 A095391 #5 Oct 19 2017 03:14:32 %S A095391 1751793,235449,60110,10471,17110,8495,6288,3182,2452,1349,331,348, %T A095391 446,223,249,205,111,67,55,63,28,37,14,21,18,11,10,6,551,5,4,7,3,2 %N A095391 a(n) is the least x such that A094892(x)=n. %e A095391 a[0]=1751793 because there are no primes between 210*1751793 and 210*1751794. %e A095391 a[1]=235449 because there is one prime between 210*235449 and 210*235450. %t A095391 ta=Table[0, {up}]; Do[{m=0};Do[s=210*k+r; s1=210*k+r+2; If[PrimeQ[s], m=m+1], {r, 1, 210}];ta[[k]]=m, {k, 1, up}] Table[Min[Flatten[Position[ta, j]]], {j, 1, 48}] %Y A095391 Cf. A078859, A095389, A008364. %K A095391 fini,nonn %O A095391 0,1 %A A095391 _Labos Elemer_, Jun 16 2004 %E A095391 Edited by _Don Reble_, Jun 16 2004