A133076 Successive digits of isolated primes A007510(n).

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, 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, 1, 7, 3, 3, 1, 3, 3, 7, 3, 5, 3, 3, 5, 9

Offset: 1

Author

Omar E. Pol, Nov 10 2007

Keywords

• easy
• nonn
• base
• less

Links

• Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Crossrefs

Cf. A033308, A007510.

Programs

Mathematica

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