%I #10 Oct 23 2012 12:14:52
%S 1,7,23,30,94,219,279,773,1856,3724,6999,7000,19205,184163,280103,
%T 849876,1870722,3570761,4114341,11271072,55282774,68256040,68256041,
%U 104011359,1009322491,1311699253,7889803997
%N Numbers n such that A053597(n) sets a new record.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%t 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}]
%Y Gives RECORDS transform of A053597. The corresponding primes are in A079889. See also A079007.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Jan 07 2003
%E More terms from _Robert G. Wilson v_ and _Klaus Brockhaus_, Jan 08 2003
%E a(21)-a(27) from _Donovan Johnson_, Oct 23 2012