OFFSET
1,1
MATHEMATICA
a = Delete[Union[Flatten[Table[If [PrimeQ[7^n + 3 + 1] == True, 7^n + 3 + 1, 0], {n, 1, 400}]]], 1]
Select[7^Range[0, 30]+4, PrimeQ] (* Harvey P. Dale, Jul 31 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 02 2005
EXTENSIONS
Initial 5 from Vincenzo Librandi, Dec 10 2010
STATUS
approved