A023382 - OEIS

%I #13 Nov 08 2016 07:49:37

%S 5,9,13,21,37,101,325,1701,15553,265521,15145741,4407319297,

%T 8476862457125,317357347477745133,729744078980232421278033,

%U 312985160558462528575346809331697,165846387971749525630798815099063350900119181

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

%H John Cerkan, <a href="/A023382/b023382.txt">Table of n, a(n) for n = 1..27</a>

%p f:= proc(n) local L;

%p      L:= convert(n,base,5);

%p      add(L[i]*9^(i-1),i=1..nops(L))

%p end proc:

%p A[1]:= 5:

%p for i from 2 to 20 do

%p  A[i]:= f(A[i-1])

%p od:

%p seq(A[i],i=1..20); # _Robert Israel_, Nov 07 2016

%t NestList[FromDigits[IntegerDigits[#,5],9]&,5,20] (* _Harvey P. Dale_, Oct 05 2015 *)

%K nonn

%O 1,1

%A _David W. Wilson_

%E One additional term (a(17)) from _Harvey P. Dale_, Oct 05 2015