OFFSET
0,1
COMMENTS
A triangular prime alternating sign Binet like function.
EXAMPLE
-2
7, 3
-26, -13,-7
96, 48, 24, 12
-362,-181, -91, -46, -23
1350, 675, 337, 168, 84, 42
MATHEMATICA
f[n_, m_] = N[(-2 + Sqrt[3])^n + (-2 - Sqrt[3])^n]/2^m a = Table[Table[Floor[f[n, m]], {m, 1, n}], {n, 1, 10}] aa = Flatten[a] pp = Flatten[Table[If[PrimeQ[aa[[n]]], aa[[n]], {}], {n, 1, Length[aa]}]] Length[pp]/Length[aa]
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Roger L. Bagula, Apr 29 2006
STATUS
approved