OFFSET
1,1
MATHEMATICA
a={}; Do[p=(7^n-3^n)/4; If[PrimeQ[p], AppendTo[a, p]], {n, 0, 13^2}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 16 2008
STATUS
approved