|
| |
|
|
A065074
|
|
Near-repunit primes that contain the digit 0.
|
|
5
| |
|
|
101, 10111, 101111, 11110111, 11111101, 101111111, 101111111111, 111011111111, 111111011111, 111111110111, 111111111101, 11111111101111111, 11111111111111101, 101111111111111111, 111110111111111111
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Chris Caldwell, Repunit
|
|
|
MATHEMATICA
| a = {}; Do[p = IntegerDigits[ (10^n - 1)/9 ]; Do[ If[ q = FromDigits[ ReplacePart[p, 0, i]]; PrimeQ[q], a = Append[a, q]], {i, 2, n} ], {n, 1, 20} ]; a
|
|
|
CROSSREFS
| Cf. A004022, A034093, A065083.
Sequence in context: A164367 A094028 A144564 * A113628 A135375 A172162
Adjacent sequences: A065071 A065072 A065073 * A065075 A065076 A065077
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 19 2001
|
|
|
EXTENSIONS
| Name changed by Arkadiusz Wesolowski, Sep 23 2011
|
| |
|
|
