%I #12 Mar 11 2014 01:34:10

%S 2,2,3,3,7,4,7,5,3,6,7,7,9,8,3,8,9,9,7,1,1,3,1,2,7,1,3,1,1,5,7,1,6,3,

%T 1,6,7,1,7,3,2,1,1,2,2,3,2,3,3,2,5,1,2,5,7,2,6,3,2,7,7,2,9,3,3,0,7,3,

%U 1,7,3,3,1,3,3,7,3,5,3,3,5,9

%N Successive digits of isolated primes A007510(n).

%H Omar E. Pol, <a href="http://www.polprimos.com">Determinacion geometrica de los numeros primos y perfectos</a>.

%t With[{prs=Prime[Range[100]]},Flatten[IntegerDigits/@Complement[prs, Flatten[Select[Partition[prs,2,1],Last[#]-First[#]==2&]]]]] (* _Harvey P. Dale_, Sep 20 2011 *)

%Y Cf. A033308, A007510.

%K easy,nonn,base,less

%O 1,1

%A _Omar E. Pol_, Nov 10 2007