|
Search: id:A065074
|
|
| |
|
| 101, 10111, 101111, 11110111, 11111101, 101111111, 101111111111, 111011111111, 111111011111, 111111110111, 111111111101, 11111111101111111, 11111111111111101, 101111111111111111, 111110111111111111
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
As defined by the link, begin with a repunit and change just one digit from 1 to 0 and test for primality.
|
|
LINKS
|
Chris Caldwell, Below are all of the 12-digit Near-Repunit primes:
Chris Caldwell, Repunits
|
|
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, A065080, A065083.
Sequence in context: A027900 A017764 A094028 this_sequence A113628 A135375 A096884
Adjacent sequences: A065071 A065072 A065073 this_sequence A065075 A065076 A065077
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 19 2001
|
|
|
Search completed in 0.002 seconds
|
