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

%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