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.

A235592 Numbers k such that k*(k+1) - prime(k) is prime.

This page as a plain text file.
%I A235592 #13 Apr 10 2020 11:34:31
%S A235592 2,3,4,5,6,8,9,11,14,15,18,19,20,21,26,27,29,34,36,37,38,41,44,45,48,
%T A235592 53,54,57,61,62,69,70,71,85,86,87,89,90,98,99,102,105,112,114,117,119,
%U A235592 131,134,135,136,137,141,145,147,149,150,153,156,157,162,170,171,175,176,180,183,187,189,198,200
%N A235592 Numbers k such that k*(k+1) - prime(k) is prime.
%C A235592 It is known that prime(k) <= k*(k+1) for any positive integer k.  The conjecture in A235613 implies that the sequence has infinitely many terms.
%C A235592 Conjecture: This sequence contains infinitely many primes.
%H A235592 Zhi-Wei Sun, <a href="/A235592/b235592.txt">Table of n, a(n) for n = 1..10000</a>
%e A235592 a(1) = 2 since 1*2 - prime(1) = 0 is not prime, but 2*3 - prime(2) = 3 is prime.
%e A235592 a(2) = 3 since 3*4 - prime(3) = 7 is prime.
%e A235592 a(3) = 4 since 4*5 - prime(4) = 13 is prime.
%t A235592 n=0;Do[If[PrimeQ[k(k+1)-Prime[k]],n=n+1;Print[n," ",k]],{k,1,200}]
%t A235592 Select[Range[200],PrimeQ[(#(#+1))-Prime[#]]&] (* _Harvey P. Dale_, Apr 10 2020 *)
%Y A235592 Cf. A000040, A235613, A235614.
%K A235592 nonn
%O A235592 1,1
%A A235592 _Zhi-Wei Sun_, Jan 12 2014