A100502 Primes arising in A099678.
10301, 10501, 10601, 101501, 101701, 102001, 102101, 102301, 102701, 103001, 103801, 104701, 104801, 105401, 105601, 105701, 106501, 106801, 107101, 107201, 108301, 108401, 109001, 109201, 1010201, 1010501, 1011001, 1011601, 1012201, 1012601, 1013401
Offset: 1
Crossrefs
Cf. A099678.
Programs
-
Maple
t0:=[]; u0:=[]; for n from 0 to 500 do p0:="10"; p1:="01"; t1:=cat(p0,n,p1); t1:=convert(t1,decimal,10); if isprime(t1) then t0:=[op(t0),n]; u0:=[op(u0),t1]; fi; od: u0;
-
Mathematica
p = Select[ Range[280], PrimeQ[ FromDigits[Join[{1, 0}, IntegerDigits[ # ], {0, 1}]]] &]; Table[ FromDigits[ Join[{1, 0}, IntegerDigits[ p[[n]]], {0, 1}]], {n, 29}] (* Robert G. Wilson v, Nov 20 2004 *)