OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{lst={13}}, Do[AppendTo[lst, 13+Floor[Total[lst]/3]], {40}]; lst] (* Harvey P. Dale, May 22 2012 *)
PROG
(Magma)
function f(n, a, b)
t:=0;
for k in [1..n-1] do
t+:= a+Floor((b+t)/3);
end for;
return t;
end function;
g:= func< n, a, b | f(n+1, a, b)-f(n, a, b) >;
A120157:= func< n | g(n, 13, 0) >;
[A120157(n): n in [1..60]]; // G. C. Greubel, Aug 31 2023
(SageMath)
@CachedFunction
[A120157(n) for n in range(1, 61)] # G. C. Greubel, Aug 31 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
Name edited by G. C. Greubel, Aug 31 2023
STATUS
approved