1,1
a = Delete[Union[Flatten[Table[If [PrimeQ[2^n + 31] == True, 2^n + 31, 0], {n, 1, 400}]]], 1]
Adjacent sequences: A104066 A104067 A104068 this_sequence A104070 A104071 A104072
Sequence in context: A052463 A005148 A123798 this_sequence A101629 A033520 A093940
nonn,bref
Roger Lee Bagula (rlbagulatftn(AT)yahoo.com), Mar 02 2005
Search completed in 0.002 seconds
