|
| |
|
|
A100502
|
|
Primes arising in A099678.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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}] (from Robert G. Wilson v Nov 20 2004)
|
|
|
CROSSREFS
| Sequence in context: A200712 A187937 A154089 * A099746 A083438 A178582
Adjacent sequences: A100499 A100500 A100501 * A100503 A100504 A100505
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Nov 19 2004
|
| |
|
|
