A023382 a(n+1) = a(n) converted to base 9 from base 5 (written in base 10).

5, 9, 13, 21, 37, 101, 325, 1701, 15553, 265521, 15145741, 4407319297, 8476862457125, 317357347477745133, 729744078980232421278033, 312985160558462528575346809331697, 165846387971749525630798815099063350900119181

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

Sequence in context: A334214 A053411 A332571 * A314793 A314794 A314795

Adjacent sequences: A023379 A023380 A023381 * A023383 A023384 A023385

Keyword

nonn

Author

David W. Wilson

Extensions

One additional term (a(17)) from Harvey P. Dale, Oct 05 2015

Status

approved