1,1

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

Sequence in context: A052073 A128825 A142790 this_sequence A060456 A056580 A010011

Adjacent sequences: A104065 A104066 A104067 this_sequence A104069 A104070 A104071

nonn

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