%I #7 Oct 03 2013 02:40:28
%S 2,11,13,31,59,113,313,349,659,821,1493,1571,1733,3209,3323,5569,7331,
%T 7853,10531,13367,17321,21493,21787,25793,30137,31541,36709,39043,
%U 39439,44771,46049,49991,55147,55501,56923,57881,58363,59333,65323
%N Primes of the form perfect_power(n)+n.
%e 11 is OK: 11 = perfect_power(3) + 3 = 8 + 3, perfect_power(n) is n-th perfect power: A001597(n).
%e 31 is OK: 31 = perfect_power(6) + 6 = 25 + 6; 59 is OK: 59 = perfect_power(10) + 10 = 49 + 10.
%o (PARI) lista(nn) = {vec = vector(nn, i, i); pp = select(i->((ispower(i) || (i==1))), vec); for (i = 1, #pp, if (isprime(pp[i]+i), print1(pp[i]+i, ", ")););} \\ _Michel Marcus_, Oct 03 2013
%Y Cf. A001597.
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 10 2002
|