OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10124
EXAMPLE
274627 - 2 = 5^3*13^3, 328511 - 2 = 3^3*23^3,..
MATHEMATICA
f3[n_]:=FactorInteger[n][[1, 2]]==3&&Length[FactorInteger[n]]==2&&FactorInteger[n][[2, 2]]==3; lst={}; Do[p=Prime[n]; If[f3[p-2], AppendTo[lst, p]], {n, 4, 4*9!}]; lst
PROG
(PARI) forprime(p=3, 1e9, if(ispower(p-2, 3, &n)&&!issquare(n)&&bigomega(n)==2, print1(p", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 14 2009
EXTENSIONS
Program by Charles R Greathouse IV, Oct 12 2009
STATUS
approved