|
|
A107608
|
|
Perfect powers which have the form prime(n) - n for some n.
|
|
3
|
|
|
1, 1, 25, 32, 125, 128, 441, 529, 729, 961, 1089, 1369, 2025, 2809, 3375, 4489, 4900, 4913, 9216, 10201, 10404, 12167, 16384, 17576, 18225, 20736, 27889, 31684, 34596, 35344, 38416, 38809, 39601, 40804, 46656, 47961, 60516, 61009, 63504, 65025
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_] := Prime[n] - n; Select[f /@ Range[10^4], ! GCD @@ Last /@ FactorInteger[ # ] == 1 &] (* Ray Chandler, May 21 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|