1,1
a(n) =if 2^n+7^2 is prime then a[m]=2^n+49
a = Delete[Union[Flatten[Table[If [PrimeQ[2^n + 49] == True, 2^n + 49, 0], {n, 1, 400}]]], 1]
Sequence in context: A139504 A142798 A140025 * A044240 A044621 A142125
Adjacent sequences: A104070 A104071 A104072 * A104074 A104075 A104076
nonn
Roger Lee Bagula (rlbagulatftn(AT)yahoo.com), Mar 02 2005