|
%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
|
