1,1
a = Delete[Union[Flatten[Table[If [PrimeQ[6^n - ( 2^2)^n + 11] == True, 6^n - (2^2)^n + 11, 0], {n, 1, 1000}]]], 1]
Sequence in context: A179035 A007628 A141837 * A023304 A180757 A159670
Adjacent sequences: A104148 A104149 A104150 * A104152 A104153 A104154
nonn
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 08 2005