%I A053705
%S A053705 2,7,23,47,79,167,241,359,727,839,1367,1847,2207,2399,3719,5039,6857,
%T A053705 7919,10607,11447,14639,16127,17159,19319,19681,28559,29789,29927,
%U A053705 36479,44519,49727,50651,54287,57119,66047,85847,97967,113567,128879
%N A053705 Primes p of form q^k-2 where q is also a prime and k > 0.
%C A053705 79=3^4-2, 243=3^5-2.
%t A053705 Do[s=2+Prime[n]; If[Equal[Length[FactorInteger[s]], 1]&&!PrimeQ[s], Print[s-2]], 
               {n, 1, 100000}]
%Y A053705 Cf. A025475.
%Y A053705 Sequence in context: A049572 A094786 A028871 this_sequence A049001 A049002 
               A011757
%Y A053705 Adjacent sequences: A053702 A053703 A053704 this_sequence A053706 A053707 
               A053708
%K A053705 nonn
%O A053705 1,1
%A A053705 Labos E. (labos(AT)ana.sote.hu), Feb 14 2000