OFFSET
1,1
FORMULA
a(n) = (A137270(n))^2-6.
MATHEMATICA
f[n_]:=n^2-6; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 7!}]; lst
#^2-6&/@Select[Prime[Range[2, 200]], PrimeQ[#^2-6]&] (* Harvey P. Dale, May 21 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 16 2009
EXTENSIONS
Cross-reference turned into formula by R. J. Mathar, Jul 27 2009
STATUS
approved