|
%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
|
