|
%I #6 Mar 31 2012 12:38:16
%S 3,13,21,3,7,8,1,18,29,5,3,8,11,31,4,20,3,7,5,19,21,32,1,19,48,19,29,
%T 32,7,38,1,43,12,33,46,6,16,8,4,34,15,1,19,7,1,23,28,30,22,8,1,7,1,52,
%U 14,56,10,26,2,30,65,5,71,12,44,39,37,6,19,47,11,10,21,7,11,4,62,7,4,8,1
%N Number of primes between successive balanced primes (A006562).
%t BalancedPrimeQ[n_]:=Prime[n+1]-Prime[n]==Prime[n]-Prime[n-1]; lst={}; a=1; Do[If[BalancedPrimeQ[n], i=PrimePi[p=Prime[n]]-PrimePi[a]; AppendTo[lst,i]; a=p],{n,2,5000}]; lst
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 29 2008
|
