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

Author

N. J. A. Sloane, Jan 07 2003

Keywords

• nonn

Links

• N. J. A. Sloane, Transforms

Crossrefs

Gives RECORDS transform of A053597. The corresponding primes are in A079889. See also A079007.

Programs

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}]

Extensions

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

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