OFFSET
1,1
COMMENTS
LINKS
C. Caldwell's The Top Twenty, Wagstaff.
MATHEMATICA
Select[Range[500], PrimeQ[(2^Prime[#]+1)/3]&] (* The program generates the first 23 terms of the sequence. To generate more, increase the Range constant. *) (* Harvey P. Dale, Mar 09 2022 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Alexander Adamchuk, Oct 03 2006
EXTENSIONS
Two more terms computed from A000978 by Max Alekseyev, Mar 03 2010
STATUS
approved