OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
nxt[{a_, ls_}]:=Module[{x=Floor[(17+ls)/5]}, {x, ls+x}]; Transpose[ NestList[ nxt, {3, 3}, 60]][[1]] (* Harvey P. Dale, Jun 11 2014 *)
PROG
(Magma)
function f(n, a, b)
t:=0;
for k in [1..n-1] do
t+:= a+Floor((b+t)/5);
end for;
return t;
end function;
g:= func< n, a, b | f(n+1, a, b)-f(n, a, b) >;
A120172:= func< n | g(n, 3, 2) >;
[A120172(n): n in [1..60]]; // G. C. Greubel, Dec 25 2023
(SageMath)
@CachedFunction
def f(n, p, q): return p + (q +sum(f(k, p, q) for k in range(1, n)))//5
def A120172(n): return f(n, 3, 2)
[A120172(n) for n in range(1, 61)] # G. C. Greubel, Dec 25 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
More terms from Harvey P. Dale, Jun 11 2014
STATUS
approved