|
|
A107606
|
|
Perfect powers which have the form prime(n) + n for some n.
|
|
5
|
|
|
8, 16, 27, 32, 49, 529, 676, 1000, 1225, 1521, 1681, 1764, 2744, 3249, 4096, 5929, 9604, 10404, 10609, 11664, 12321, 19600, 24336, 25921, 26569, 27889, 33856, 34225, 34596, 46656, 51984, 68921, 71289, 72361, 91204, 100489, 101124, 104976
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_] := Prime[n] + n; Select[f /@ Range[10^4], ! GCD @@ Last /@ FactorInteger[ # ] == 1 &] (* Ray Chandler, May 21 2005 *)
perfPQ[n_]:=GCD@@FactorInteger[n][[All, 2]]>1; Select[Table[Prime[n]+n, {n, 10000}], perfPQ] (* Harvey P. Dale, Jan 28 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|