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.

A089344 Smallest prime(k) such that prime(k)-prime(k-n) is equal to prime(k+1)-prime(k).

This page as a plain text file.
%I A089344 #17 Apr 05 2017 04:48:03
%S A089344 5,7,619,6581,13933,15823,22307,259033,678659,745757,576791,15014557,
%T A089344 35630467,31515413,264426203,356604959,364058659,2529682091,
%U A089344 6868844179,1457908691,12799238129,23294528897,72106293983,82160403553,230966323927,19187736221
%N A089344 Smallest prime(k) such that prime(k)-prime(k-n) is equal to prime(k+1)-prime(k).
%H A089344 Giovanni Resta, <a href="/A089344/b089344.txt">Table of n, a(n) for n = 1..30</a>
%F A089344 a(n) = prime(A066496(n)). - _Giovanni Resta_, Apr 04 2017
%e A089344 a(4) = 6581, the next prime is 6599, 6599-6581 = 18, the four previous primes are 6563, 6569, 6571 and 6577. 6581-6563 = 18.
%t A089344 f[n_] := Block[{k = n + 1}, While[ 2Prime[k] != Prime[k + 1] + Prime[k - n], k++ ]; Prime[k]]; Table[ f[n], {n, 17}] (* _Robert G. Wilson v_, Nov 11 2003 *)
%Y A089344 Cf. A066496, A006562 (balanced primes), A117876, A118467.
%K A089344 nonn
%O A089344 1,1
%A A089344 _Amarnath Murthy_, Nov 05 2003
%E A089344 Corrected and extended by _Ray Chandler_ and _Robert G. Wilson v_, Nov 07 2003
%E A089344 a(18)-a(21) from _Fabien Sibenaler_, Mar 15 2013
%E A089344 a(22)-a(26) from _Giovanni Resta_, Apr 04 2017