|
| |
|
|
A064336
|
|
Maximal prime numbers with increasing prime differences.
|
|
2
| |
|
|
2, 3, 5, 7, 13, 23, 31, 47, 61, 83, 109, 139, 173, 211, 251, 293, 337, 389, 449, 509, 577, 647, 719, 797, 883, 977, 1069, 1171, 1277, 1381, 1493, 1619, 1747, 1879, 2017, 2161, 2311, 2467, 2621, 2777, 2939, 3109, 3271, 3461, 3643, 3833, 4027, 4231, 4451, 4673
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
FORMULA
| a(1) = 2, a(n+1) = MAX {prime p | p <= a(n) + p(n)} (where p(n) is the n-th prime number)
|
|
|
EXAMPLE
| a(5) = 13, since a(4) = 7, p(4) = 7 and 13 is the highset prime which is not bigger than 7 + 7.
|
|
|
MATHEMATICA
| PrevPrime[n_] := (k = n; While[ ! PrimeQ[k], k-- ]; k); f[1] = 2; f[n_] := PrevPrime[ f[n - 1] + Prime[n] ]; Table[ f[n], {n, 1, 50} ]
|
|
|
PROG
| (PARI) { for (n=1, 1000, if (n>1, a=precprime(a + prime(n - 1)), a=2); write("b064336.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 12 2009]
|
|
|
CROSSREFS
| Cf. A064337.
Sequence in context: A181526 A163487 A048413 * A179921 A126092 A132394
Adjacent sequences: A064333 A064334 A064335 * A064337 A064338 A064339
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Lior Manor (lior.manor(AT)gmail.com) Sep 13 2001
|
| |
|
|
