|
%I #11 Aug 22 2019 10:01:35
%S 10,6,20,24,24,60,18,48,100,48,156,74,88,68,42,126,366,106,186,136,
%T 228,104,30,246,52,218,814,58,536,174,90,924,180,298,120,330,96,508,
%U 504,60,762,588,330,138,552,726,452,634,660,354,534,1770,52,262,834,790,250,624
%N Difference between the previous and the next primes to x, where x is the number obtained from concatenation of the first n primes (A019518).
%F a(n) = A151800(A019518(n)) - A151799(A019518(n)).
%e For n=4, concatenate(2,3,5,7) gives 2357. The closest other primes are 2371 and 2351 and their difference is a(4)=20.
%t <<NumberTheory`NumberTheoryFunctions` sz[x_] :=FromDigits[Flatten[Table[IntegerDigits[Prime[j]], {j, 1, x}], 1]] Table[NextPrime[sz[w]]-PreviousPrime[sz[w]], {w, 1, 100}]
%o (PARI) A019518(n)=my(k="");forprime(p=2,prime(n),k=Str(k,p));eval(k)
%o a(n)=my(k=A019518(n));nextprime(k+1)-precprime(k-1) \\ _Charles R Greathouse IV_, Apr 28 2010
%Y Cf. A019518, A074809, A104462, A104463.
%K nonn,base
%O 2,1
%A _Labos Elemer_, Mar 18 2005
%E Corrected, extended, and edited by _Charles R Greathouse IV_, Apr 28 2010
|
