OFFSET
1,1
COMMENTS
PrimePi[ a(n) ] = {5, 12, 15, 25, 39, 151, 307, 341, ...}.
LINKS
Henri & Renaud Lifchitz, PRP Records.
MATHEMATICA
Do[p=Prime[n]; f=(3^p+3^((p+1)/2)+1)/7; If[PrimeQ[f], Print[{n, p}]], {n, 1, 341}]
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, Dec 04 2006
EXTENSIONS
a(9)-a(12) from Lelio R Paula (lelio(AT)sknet.com.br), May 09 2008
a(13)-a(14) from Serge Batalov, Mar 07 2014
STATUS
approved