OFFSET
1,1
COMMENTS
MATHEMATICA
seq = {}; wagstaff[n_] := (2^n + 1)/3; Do[p = Prime[n]; If[PrimeQ[LucasL[p]] && PrimeQ[wagstaff[p]], AppendTo[seq, p]], {n, 1, 1304}]; seq
CROSSREFS
KEYWORD
hard,nonn,more
AUTHOR
Amiram Eldar, Jul 24 2017
STATUS
approved
