1,1

a = Delete[Union[Flatten[Table[If [PrimeQ[7^n + 3 + 1] == True, 7^n + 3 + 1, 0], {n, 1, 400}]]], 1]

Sequence in context: A093198 A093864 A139967 this_sequence A104291 A003867 A059135

Adjacent sequences: A104062 A104063 A104064 this_sequence A104066 A104067 A104068

nonn

Roger Lee Bagula (rlbagulatftn(AT)yahoo.com), Mar 02 2005