OFFSET
1,1
LINKS
John Cerkan, Table of n, a(n) for n = 1..27
MAPLE
f:= proc(n) local L;
L:= convert(n, base, 5);
add(L[i]*9^(i-1), i=1..nops(L))
end proc:
A[1]:= 5:
for i from 2 to 20 do
A[i]:= f(A[i-1])
od:
seq(A[i], i=1..20); # Robert Israel, Nov 07 2016
MATHEMATICA
NestList[FromDigits[IntegerDigits[#, 5], 9]&, 5, 20] (* Harvey P. Dale, Oct 05 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
One additional term (a(17)) from Harvey P. Dale, Oct 05 2015
STATUS
approved