OFFSET
1,1
LINKS
Charlie Neder, Table of n, a(n) for n = 1..865
EXAMPLE
a(1)=3^3, a(2)=3^5, a(3)=7^3, a(4)=3^9, a(5)=31^3, a(6)=67^3, a(7)=75^3, a(8)=79^3, a(9)=87^3, a(10)=15^5, a(11)=111^3, a(12)=127^3, a(13)=139^3, a(14)=147^3, a(15)=159^3, a(16)=171^3, a(17)=207^3 and a(18)=211^3.
MATHEMATICA
pp = Join[{1}, Select[ Range[10^7], Apply[GCD, Last[ Transpose[ FactorInteger[ # ]]]] > 1 & ]]; Select[pp, PrimeQ[(# - 17)/2] & ]
Select[Flatten[Table[n^Range[2, 10], {n, 250}]], PrimeQ[(#-17)/2]&]//Union (* Harvey P. Dale, Dec 08 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 11 2002
EXTENSIONS
Extended by Robert G. Wilson v, Oct 14 2002
a(19)-a(29) from Charlie Neder, Feb 11 2019
STATUS
approved