This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A290246 #6 Aug 03 2017 11:37:23
%S A290246 5,7,11,13,17,19,31,61,79,313,10691
%N A290246 Prime numbers that are common indices to both prime Lucas and prime Wagstaff numbers.
%C A290246 Prime numbers p such that Lucas(p) and (2^p + 1)/3 are both primes.
%C A290246 Intersection of A000978 and A001606.
%t A290246 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 A290246 Cf. A000978, A001606, A080327.
%K A290246 hard,nonn,more
%O A290246 1,1
%A A290246 _Amiram Eldar_, Jul 24 2017