|
| |
|
|
A078515
|
|
Numbers n such that A053597(n) sets a new record.
|
|
3
| |
|
|
1, 7, 23, 30, 94, 219, 279, 773, 1856, 3724, 6999, 7000, 19205, 184163, 280103, 849876, 1870722, 3570761, 4114341, 11271072
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| N. J. A. Sloane, Transforms
|
|
|
MATHEMATICA
| f[n_] := Block[{k = 1}, While[p = Table[ Prime[i], {i, n, n + k}]; Length[ Union[Drop[p, 1] - Drop[p, -1]]] == k, k++ ]; k - 1]; a = Table[0, {50}]; Do[b = f[n]; If[ a[[b]] == 0, a[[b]] = n], {n, 1, 19000000}]
|
|
|
CROSSREFS
| Gives RECORDS transform of A053597. The corresponding primes are in A079889. See also A079007.
Sequence in context: A019389 A056723 A080802 * A044449 A095087 A144517
Adjacent sequences: A078512 A078513 A078514 * A078516 A078517 A078518
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Jan 07 2003
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) and Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jan 08 2003
|
| |
|
|
