OFFSET
0,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
D. W. Boyd, Linear recurrence relations for some generalized Pisot sequences, Advances in Number Theory ( Kingston ON, 1991) 333-340, Oxford Sci. Publ., Oxford Univ. Press, New York, 1993.
MAPLE
a:= proc(n) option remember; `if`(n<2, [3, 6][n+1],
1 +floor(a(n-1)^2/a(n-2)))
end:
seq(a(n), n=0..40); # Alois P. Heinz, May 05 2014
MATHEMATICA
a[n_] := a[n] = Switch[n, 0, 3, 1, 6, _, 1 + Floor[a[n-1]^2/a[n-2]]];
a /@ Range[0, 40] (* Jean-François Alcover, Nov 16 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved