|
| |
|
|
A033874
|
|
Difference between the largest prime < 10^n (A003618) and 10^n.
|
|
10
| |
|
|
3, 3, 3, 27, 9, 17, 9, 11, 63, 33, 23, 11, 29, 27, 11, 63, 3, 11, 39, 11, 101, 27, 23, 257, 123, 141, 99, 209, 27, 11, 27, 21, 9, 411, 23, 159, 81, 59, 57, 17, 119, 83, 81, 53, 9, 33, 41, 33, 57, 57, 323, 231, 177, 291, 111, 593, 93, 149, 141, 161, 39, 83, 123, 51, 269
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
REFERENCES
| Knuth, Art of Computer Programming, volume 2, pages 13 and 390.
Journal of Recreational Mathematics, volume 14 number 4 page 285.
Journal of Recreational Mathematics, volume 20 number 3 page 209-210.
Journal of Recreational Mathematics, volume 22 number 4 page 278.
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n = 1..1000 (yielding probable primes)
V. Danilov, Table for large n
Eric Weisstein's World of Mathematics, Previous Prime
|
|
|
EXAMPLE
| a(4) = 27 because 10^4 - 9973 = 27. The 21-th term is 101 since 10^21 - 101 = 999999999999999999899 is prime.
|
|
|
MAPLE
| seq(10^n-prevprime(10^n), n=1..65); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Apr 20 2006
|
|
|
MATHEMATICA
| PrevPrime[ n_Integer ] := Module[ {k}, k = n - 1; While[ ! PrimeQ[ k ], k-- ]; k ]; Table[ 10^n - PrevPrime[ 10^n ], {n, 1, 75} ] (* From Robert G. Wilson v, Sep 09 2000 *)
Table[10^i - NextPrime[10^i, -1], {i, 0, 70}] (* From Harvey P. Dale, Jan 13 2011 *)
|
|
|
CROSSREFS
| Cf. A003618.
Sequence in context: A127014 A073748 A131445 * A122092 A025549 A135584
Adjacent sequences: A033871 A033872 A033873 * A033875 A033876 A033877
|
|
|
KEYWORD
| nonn,nice
|
|
|
AUTHOR
| Vasiliy Danilov (danilovv(AT)usa.net)
|
|
|
EXTENSIONS
| More terms from Patrick De Geest (pdg(AT)worldofnumbers.com)
Additional comments from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 09 2000
|
| |
|
|
