A290246 Prime numbers that are common indices to both prime Lucas and prime Wagstaff numbers.
5, 7, 11, 13, 17, 19, 31, 61, 79, 313, 10691
Offset: 1
Programs
-
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
Comments