|
%I #14 Jan 28 2023 16:02:10
%S 8,16,27,32,49,529,676,1000,1225,1521,1681,1764,2744,3249,4096,5929,
%T 9604,10404,10609,11664,12321,19600,24336,25921,26569,27889,33856,
%U 34225,34596,46656,51984,68921,71289,72361,91204,100489,101124,104976
%N Perfect powers which have the form prime(n) + n for some n.
%C Corresponding n's are in A107605.
%H Zak Seidov, <a href="/A107606/b107606.txt">Table of n, a(n) for n = 1..1000</a>
%F A107606(n) = prime[A107605(n)] + A107605(n)
%t f[n_] := Prime[n] + n; Select[f /@ Range[10^4], ! GCD @@ Last /@ FactorInteger[ # ] == 1 &] (* _Ray Chandler_, May 21 2005 *)
%t perfPQ[n_]:=GCD@@FactorInteger[n][[All,2]]>1; Select[Table[Prime[n]+n,{n,10000}],perfPQ] (* _Harvey P. Dale_, Jan 28 2023 *)
%Y Cf. A001597 (perfect powers), A107605 (associated n), A107607, A107608.
%K nonn
%O 1,1
%A _Zak Seidov_, May 17 2005
%E Extended by _Ray Chandler_ and _Robert G. Wilson v_, May 21 2005
|
