%I #10 Jul 31 2016 07:17:25
%S 2,3,5,11,19,29,37,41,53,61,71,89,131,137,149,157,233,263,271,281,293,
%T 331,337,359,389,431,433,439,457,487,499,571,617,631,659,701,739,751,
%U 761,809,859,877,907,911,1009,1019,1031,1033,1087,1093
%N Primes p with p*(p+1) - prime(p) prime.
%C This sequence is a subsequence of A235592.
%C By the conjecture in A232353, this sequence should have infinitely many terms.
%H Zhi-Wei Sun, <a href="/A235661/b235661.txt">Table of n, a(n) for n = 1..10000</a>
%e 2 is a term because 2*3 - prime(2) = 3 is prime.
%e 3 is a term because 3*4 - prime(3) = 7 is prime.
%e 5 is a term because 5*6 - prime(5) = 19 is prime.
%t PQ[n_]:=PrimeQ[n(n+1)-Prime[n]]
%t n=0;Do[If[PQ[Prime[k]],n=n+1;Print[n," ",Prime[k]]],{k,1,1000}]
%Y Cf. A000040, A232353, A234695, A235592, A235613, A235614.
%K nonn
%O 1,1
%A _Zhi-Wei Sun_, Jan 13 2014
|