OFFSET
2,1
LINKS
Robert Israel, Table of n, a(n) for n = 2..10000
MAPLE
Digits := 100: c := ceil; A081850 := proc(a) local i, t0, t; t0 := a; t := 0; for i from 1 to 100 do if whattype(t0) <> integer then t0 := a*c(t0); t := t+1; else RETURN(t); fi; od; RETURN('FAIL'); end;
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 13 2003
STATUS
approved