OFFSET
0,3
COMMENTS
LINKS
Peter Steinbach, Golden Fields: A Case for the Heptagon, Mathematics Magazine, Vol. 70, No. 1, Feb. 1997.
MATHEMATICA
Table[Floor[2 n Cos[Pi/7]], {n, 0, 106}] (* Michael De Vlieger, Oct 05 2015 *)
PROG
(Octave) p=roots([1, -1, -2, 1])(1); a(n)=floor(p*n)
(PARI) a(n) = floor(n*2*cos(Pi/7)); \\ Michel Marcus, Oct 05 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick D McLean, Sep 30 2015
STATUS
approved