OFFSET
0,4
LINKS
Eric Weisstein's World of Mathematics, Pisot Number
MATHEMATICA
a[1, 0] = 0; a[1, 1] = 1; a[1, n_Integer?Positive] := a[1, n] = a[1, n - 1] + a[1, n - 2] a[2, 0] = 0; a[2, 1] = 1; a[2, 2] = 1; a[2, n_Integer?Positive] := a[2, n] = a[2, n - 2] + a[2, n - 3] a[3, 0] = 0; a[3, 1] = a[3, 2] = a[3, 3] = 1; a[3, n_Integer?Positive] := a[3, n] = a[3, n - 1] + a[3, n - 4] b = Table[a[1 + Mod[n, 3], n], {n, 0, 25}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 26 2006
EXTENSIONS
Edited by N. J. A. Sloane, Apr 09 2008
STATUS
approved