%I A117808
%S A117808 3,13,181,2521,489061,6811741,1321442641,18405321661,3570537526921,
%T A117808 9647591076297901
%N A117808 a(n) = Floor[((2 + Sqrt[3])^n + (2 - Sqrt[3])^n)/4]
%C A117808 Gaukman sequence from Mathworld Mathematica notebook.
%D A117808 Eric Weisstein. "Prime-Generating Polynomial." http://mathworld.wolfram.com/
               Prime-GeneratingPolynomial.html
%t A117808 a=Expand[Table[(((2 + Sqrt[3])^#1 + (2 - Sqrt[3])^#1)/4 & )[Prime[n]], 
               {n, 10}]] Floor[a]
%Y A117808 Sequence in context: A140421 A114317 A081299 this_sequence A002065 A087601 
               A145503
%Y A117808 Adjacent sequences: A117805 A117806 A117807 this_sequence A117809 A117810 
               A117811
%K A117808 nonn,uned
%O A117808 0,1
%A A117808 Roger Bagula (rlbagulatftn(AT)yahoo.com), Apr 29 2006