|
%I #12 May 16 2012 03:23:33
%S 10,13,16,19,22,28,34,43,55,70,91,118,190,286,448,736,1228,2569,5326,
%T 11524,31633,88936,247630,873262,3177280,15067468,87070069,535975813,
%U 4294587118,44635603345,598960963723,10294085980207,307743101497111,11988344945494321
%N a(n+1) = a(n) converted to base 10 from base 13.
%H Vincenzo Librandi, <a href="/A055984/b055984.txt">Table of n, a(n) for n = 0..70</a>
%t NestList[FromDigits[IntegerDigits[#],13]&,10,30] (* _Vincenzo Librandi_, Apr 06 2012 *)
%o (PARI) {cuo=10;print1(cuo,", ");
%o for(i=1,34,cvst=cuo;cuo=0;twh=-1;
%o while(cvst!=0, twh++;
%o ptch=cvst%10;cuo=cuo+ptch*13^twh;cvst=(cvst-ptch)/10);
%o print1(cuo,", "))} \\ _Douglas Latimer_, May 15 2012
%Y Cf. A055983, A055985.
%K nonn,base,easy
%O 0,1
%A _Henry Bottomley_, Jun 01 2000
%E More terms from _Douglas Latimer_, May 15 2012
|
