%I A094786
%S A094786 2,7,23,47,79,167,223,241,359,439,727,839,1087,1223,1367,1847,2207,2399,
%T A094786 3023,3373,3719,3967,4759,5039,5623,5927,6857,7919,8647,10607,11447,
%U A094786 13687,14159,14639,16127,17159,18223,19319,19681,21023,24023,25919
%N A094786 Primes that are 2 less than a perfect power m^k, k >= 2.
%C A094786 Primes + 1 produces Mersenne primes.
%o A094786 (PARI) k(n,m) = forprime(x=2,n,if(ispower(x+m),print1(x","))) ispower(n) 
               = { local(p,r,j); r = sqrt(n); for(j=2,floor(r), p = floor(log(n)/
               log(j)+.5); if(j^p ==n,return(1)); ); return(0) }
%Y A094786 Sequence in context: A100917 A049552 A049572 this_sequence A028871 A053705 
               A049001
%Y A094786 Adjacent sequences: A094783 A094784 A094785 this_sequence A094787 A094788 
               A094789
%K A094786 nonn
%O A094786 1,1
%A A094786 Cino Hilliard (hillcino368(AT)gmail.com), Jun 10 2004