|
|
A075547
|
|
Perfect powers n such that (n-13)/2 is prime.
|
|
1
|
|
|
27, 1331, 2187, 250047, 759375, 2460375, 12326391, 13651919, 20796875, 33698267, 51064811, 52734375, 63521199, 80062991, 86938307, 139798359, 156590819, 170953875, 190109375, 219256227, 377933067, 502459875, 625026375, 642735647, 679151439, 707347971, 756058031, 985074875
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
27=3^3, 1331=11^3, 2187=3^7, 250047=63^3, 759375=15^5 and 2460375=135^3.
|
|
LINKS
|
|
|
MATHEMATICA
|
pp = Join[{1}, Select[ Range[10^7], Apply[GCD, Last[ Transpose[ FactorInteger[ # ]]]] > 1 & ]]; Select[pp, PrimeQ[(# - 13)/2] & ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|