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.

A204792 Primes p followed by a gap of 70 = nextprime(p) - p.

This page as a plain text file.
%I A204792 #9 Aug 20 2024 16:13:44
%S A204792 173359,175141,186481,203461,218287,253159,302329,399283,449473,
%T A204792 458239,459523,517747,524521,546391,651517,675643,677239,703561,
%U A204792 710119,724651,762409,914047,1015207,1023871,1037143,1072231,1072543,1074763,1149061,1189483,1195291
%N A204792 Primes p followed by a gap of 70 = nextprime(p) - p.
%H A204792 Robert Israel, <a href="/A204792/b204792.txt">Table of n, a(n) for n = 1..8813</a>
%H A204792 <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>.
%p A204792 P:= select(isprime, [seq(i,i=3..1.1*10^6,2)]):
%p A204792 L:= P[2..-1]-P[1..-2]:
%p A204792 R:= P[select(t -> L[t]=70, [$1..nops(L)])]; # _Robert Israel_, Oct 03 2017
%o A204792 (PARI) p=0; g=70; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); print1(", "p-g)) \\
%K A204792 nonn
%O A204792 1,1
%A A204792 _M. F. Hasler_, Jan 19 2012