OFFSET
1,2
COMMENTS
What is this sequence, asymptotically?
LINKS
Eric Weisstein's World of Mathematics, Geometric Mean.
FORMULA
a(1) = 1, a(n+1) = a(n) + floor(GeometricMean[a(1),a(2),...,a(n)]).
a(n+1) = a(n) + floor((Product_{k=1..n} a(k))^(1/n)).
EXAMPLE
a(2) = 1 + floor(1^(1/1)) = 1 + 1 = 2.
a(3) = 2 + floor[(1*2)^(1/2)] = 2 + floor[sqrt(2)] = 2 + 1 = 3.
a(4) = 3 + floor[(1*2*3)^(1/3)] = 3 + floor[CubeRoot(6)] = 3 + 1 = 4.
a(5) = 4 + floor[(1*2*3*4)^(1/4)] = 4 + floor[4thRoot(24)] = 4 + 2 = 6.
a(6) = 6 + floor[(1*2*3*4*6)^(1/5)] = 6 + floor[5thRoot(144)] = 6 + 2 = 8.
a(7) = 8 + floor[(1*2*3*4*6*8)^(1/6)] = 6 + floor[6thRoot(1152)] = 8 + 3 = 11.
MAPLE
A114829 := proc(n)
option remember;
if n= 1 then
1;
else
mul(procname(i), i=1..n-1) ;
procname(n-1)+floor(root[n-1](%)) ;
end if;
end proc:
seq(A114829(n), n=1..60) ; # R. J. Mathar, Jun 23 2014
MATHEMATICA
s={1}; Do[AppendTo[s, Last[s]+Floor[GeometricMean[s]]], {n, 58}]; s (* James C. McMahon, Aug 19 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Feb 19 2006
STATUS
approved