A078515 Numbers n such that A053597(n) sets a new record.

1, 7, 23, 30, 94, 219, 279, 773, 1856, 3724, 6999, 7000, 19205, 184163, 280103, 849876, 1870722, 3570761, 4114341, 11271072, 55282774, 68256040, 68256041, 104011359, 1009322491, 1311699253, 7889803997

Offset

1,2

Links

Table of n, a(n) for n=1..27.

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 * A225822 A044449 A095087

Adjacent sequences: A078512 A078513 A078514 * A078516 A078517 A078518

Keyword

nonn

Author

N. J. A. Sloane, Jan 07 2003

Extensions

More terms from Robert G. Wilson v and Klaus Brockhaus, Jan 08 2003

a(21)-a(27) from Donovan Johnson, Oct 23 2012

Status

approved