cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A079007 a(n) = smallest prime p_k such that the n successive differences between the primes p_k through p_(k+n) are all distinct.

This page as a plain text file.
%I A079007 #11 Oct 19 2017 03:14:09
%S A079007 2,2,2,17,83,113,491,1367,1801,5869,15919,34883,70639,70657,214867,
%T A079007 214867,2515871,3952733,13010143,30220163,60155567,69931991,203674907,
%U A079007 1092101119,1363592621,1363592677,2124140323,23024158649,30282104173,30282104173,196948778371
%N A079007 a(n) = smallest prime p_k such that the n successive differences between the primes p_k through p_(k+n) are all distinct.
%e A079007 a(0) = 2; a(1) = 2 from {2,3} with a single difference 1; a(2) = 2 from {2,3,5}, with two distinct differences 1, 2.
%e A079007 a(5) = p_30 = 113 because 113 is followed by 127, 131, 137, 139, 149, with 5 different differences: 14, 4, 6, 2, 10; and no smaller prime has this property.
%t A079007 f[k_, n_] := Block[{p = Table[ Prime[i], {i, k, k + n - 1}]}, Length[ Union[Drop[p, 1] - Drop[p, -1]]]]; k = 1; Do[ While[ f[k, n] != n - 1, k++ ]; Print[ Prime[k]], {n, 1, 22}]
%Y A079007 Cf. A001223, A068843, A053597, A078515. Different from A079889.
%K A079007 nonn
%O A079007 0,1
%A A079007 _Labos Elemer_, Jan 03 2002
%E A079007 Edited by _Robert G. Wilson v_ and _N. J. A. Sloane_, Jan 05 2002
%E A079007 More terms from _Don Reble_, Jan 15 2003
%E A079007 a(27)-a(30) from _Donovan Johnson_, Oct 23 2012