%I #4 Oct 15 2013 22:31:53
%S 5,11,17,19,23,29,31,37,41,43,47,53,59,67,71,73,83,97,103,107,109,113,
%T 127,137,149,151,157,163,167,173,179,191,193,197,199,211,227,229,233,
%U 239,241,251,257,263,269,271,277,281,283,293,307,311,313,331,337,347
%N Primes p[j] such that p[j]+j is composite.
%e 127 is the 31st prime and 127+31=158 is composite.
%t Do[s=Prime[n]+n;
%t If[ !PrimeQ[s], Print[Prime[n]]], {n, 1, 100}]
%Y Cf. A061067, A061068.
%K nonn
%O 1,1
%A _Labos Elemer_, Apr 02 2003
|