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