|
%I #8 Oct 03 2013 02:40:33
%S 1,3,5,7,10,12,17,22,24,27,33,34,38,39,42,44,45,50,54,57,62,65,78,83,
%T 87,91,99,105,106,108,122,124,125,127,130,135,142,150,159,165,167,169,
%U 175,181,186,190,193,195,201,209,221,223,232,237,240,242,251,256,259
%N Numbers n such that perfect_power(n)+perfect_power(n+1) is prime.
%e n=1: perfect_power(1)+perfect_power(2)=1+4=5 is prime.
%e n=7: perfect_power(7)+perfect_power(8)=27+32=59 is prime.
%o (PARI) lista(nn) = {vec = vector(nn, i, i); pp = select(i->((ispower(i) || (i==1))), vec); for (i=1, #pp-1, if (isprime(pp[i]+pp[i+1]), print1(i, ", ")););} \\ _Michel Marcus_, Oct 03 2013
%Y Cf. A001597.
%K easy,nonn
%O 1,2
%A _Zak Seidov_, Oct 10 2002
|
