|
%I #6 Aug 03 2017 11:37:23
%S 5,7,11,13,17,19,31,61,79,313,10691
%N Prime numbers that are common indices to both prime Lucas and prime Wagstaff numbers.
%C Prime numbers p such that Lucas(p) and (2^p + 1)/3 are both primes.
%C Intersection of A000978 and A001606.
%t 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
%Y Cf. A000978, A001606, A080327.
%K hard,nonn,more
%O 1,1
%A _Amiram Eldar_, Jul 24 2017
|
