A055983 - OEIS

%I #8 Aug 29 2013 15:01:54

%S 10,12,14,16,18,20,24,28,32,38,44,52,62,74,88,104,148,200,288,392,542,

%T 770,1092,1838,2924,4780,8016,13842,27122,53738,109916,265698,631700,

%U 1557936,4347258,12785828,43721312,154070654,621230752,2655100718

%N a(n+1) = a(n) converted to base 10 from base 12.

%H Vincenzo Librandi, <a href="/A055983/b055983.txt">Table of n, a(n) for n = 0..100</a>

%F a(n+1) = A102487(a(n)+1), a(1) = 8. - _Reinhard Zumkeller_, Aug 29 2013

%t NestList[FromDigits[IntegerDigits[#],12]&,10,40] (* _Vincenzo Librandi_, Apr 06 2012 *)

%o (Haskell)

%o a055983 n = a055983_list !! (n-1)

%o a055983_list = iterate (a102487 . (+ 1)) 10  -- _Reinhard Zumkeller_, Aug 29 2013

%Y Cf. A008557, A055982, A055984.

%K base,nonn,easy

%O 0,1

%A _Henry Bottomley_, Jun 01 2000