OFFSET
1,1
FORMULA
MATHEMATICA
f[n_] := If[PrimeQ[2^Prime[n] - 1] || PrimeQ[2^Prime[n] + 1] || PrimeQ[2^Prime[n] - 3] || PrimeQ[2^Prime[n] + 3], {2^Prime[n] - 1, 2^Prime[n] + 1, 2^Prime[n] - 3, 2^Prime[n] + 3}, {}]; a = Flatten[Table[f[n], {n, 1, 100}]]; Union[Flatten[Table[If[PrimeQ[a[[n]]], a[[n]], {}], {n, 1, Length[a]}]]]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Sep 18 2008
STATUS
approved