OFFSET
3,2
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 3..10000
MAPLE
bb:= proc(n) option remember; false end: b:= proc(n) option remember; local k, m; if n<3 then bb(n):= true; n else m:= denom(b(n-1) /b(n-2)); for k from m by m while bb(k) do od; bb(k):= true; k fi end: a:= n-> numer(b(n-2) /b(n-1)): seq(a(n), n=3..100); # Alois P. Heinz, May 17 2009
MATHEMATICA
bb[n_] := bb[n] = False;
b[n_] := b[n] = Module[{k, m}, If[n < 3, bb[n] = True; n, m = Denominator[ b[n - 1] /b[n - 2]]; For[ k = m , bb[k], k += m]; bb[k] = True; k ]];
a[n_] := Numerator[b[n - 2] /b[n - 1]];
Table[a[n], {n, 3, 100}]
CROSSREFS
KEYWORD
nonn,look
AUTHOR
N. J. A. Sloane, May 16 2009
STATUS
approved