%I #10 May 30 2018 15:55:50
%S 2,3,7,13,23,29,59,71,103,193,257,271,281,311,317,389,433,439,463,569,
%T 577,619,673,683,691,797,811,857,859,887,1031,1069,1109,1129,1153,
%U 1229,1307,1597,1613,1867,1949,1951,2069,2297,2477,2551,2621,2657,2699,2753
%N Primes p with prime(prime(p)) + 2 also prime.
%C This sequence is interesting because of the conjecture in A237253.
%C A236481, A236482 and A236484 are subsequences of the sequence.
%H Zhi-Wei Sun, <a href="/A237283/b237283.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1) = 2 since 2 and prime(prime(2)) + 2 = prime(3) + 2 = 7 are both prime.
%t n=0;Do[If[PrimeQ[Prime[Prime[Prime[k]]]+2],n=n+1;Print[n," ",Prime[k]]],{k,1,1000}]
%t Select[Prime[Range[500]],PrimeQ[Prime[Prime[#]]+2]&] (* _Harvey P. Dale_, May 30 2018 *)
%Y Cf. A000040, A001359, A006512, A096478, A218829, A236457, A236458, A236467, A236481, A236482, A236484, A236568, A237253.
%K nonn
%O 1,1
%A _Zhi-Wei Sun_, Feb 05 2014