|
| |
|
|
A057877
|
|
a(n) = smallest n-digit prime in A057876.
|
|
2
| |
|
|
23, 113, 1531, 12239, 111317, 1111219, 11119291, 111111197, 1111113173, 11111133017, 111111189919, 1111111411337, 11111111161177, 111111111263311, 1111111111149119, 11111111111179913, 111111111111118771
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 1531 gives primes 53, 131 and 151 after dropping digits 1, 5 and 3.
|
|
|
MATHEMATICA
| Do[k = (10^n - 1)/9; While[d = IntegerDigits[k]; !PrimeQ[k] || !PrimeQ[ FromDigits[ DeleteCases[d, 0]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 1]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 2]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 3]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 4]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 5]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 6]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 7]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 8]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 9]]], k++ ]; Print[k], {n, 2, 19}]
|
|
|
CROSSREFS
| Cf. A057876, A057877, A057878, A057879, A057880, A057881, A057882, A057883, A051362, A034302, A034303, A034304, A034305.
Sequence in context: A101804 A142324 A070024 * A156568 A042026 A042028
Adjacent sequences: A057874 A057875 A057876 * A057878 A057879 A057880
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), Oct 15 2000.
|
|
|
EXTENSIONS
| Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 17 2002
|
| |
|
|
