|
Search: id:A117808
|
|
|
| A117808 |
|
a(n) = Floor[((2 + Sqrt[3])^n + (2 - Sqrt[3])^n)/4] |
|
+0
1
|
|
| 3, 13, 181, 2521, 489061, 6811741, 1321442641, 18405321661, 3570537526921, 9647591076297901
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Gaukman sequence from Mathworld Mathematica notebook.
|
|
REFERENCES
|
Eric Weisstein. "Prime-Generating Polynomial." http://mathworld.wolfram.com/Prime-GeneratingPolynomial.html
|
|
MATHEMATICA
|
a=Expand[Table[(((2 + Sqrt[3])^#1 + (2 - Sqrt[3])^#1)/4 & )[Prime[n]], {n, 10}]] Floor[a]
|
|
CROSSREFS
|
Adjacent sequences: A117805 A117806 A117807 this_sequence A117809 A117810 A117811
Sequence in context: A140421 A114317 A081299 this_sequence A002065 A087601 A145503
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Apr 29 2006
|
|
|
Search completed in 0.002 seconds
|
