OFFSET
1,1
COMMENTS
None of the 3 distinct primes may have an exponent other than 1. - Harvey P. Dale, Dec 25 2022
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
1237-2=5*13*19. 1237+2=3*7*59. 1493-2=3*7*71. 1493+2=5*13*23.
MATHEMATICA
fQ[n_]:=Last/@FactorInteger[n]=={1, 1, 1}; q=2; lst={}; Do[p=Prime[n]; If[fQ[p-q]&&fQ[p+q], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[1250]], FactorInteger[#+2][[All, 2]]== FactorInteger[ #-2] [[All, 2]]=={1, 1, 1}&] (* Harvey P. Dale, Aug 03 2016 *)
Select[Prime[Range[1250]], PrimeNu[#+{2, -2}]==PrimeOmega[#+{2, -2}] == {3, 3}&] (* Harvey P. Dale, Dec 25 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 20 2009
EXTENSIONS
Definition rephrased by R. J. Mathar, Jun 23 2009
STATUS
approved