%I #17 Aug 28 2016 18:23:33
%S 0,2,3,6,5,12,9,8,21,18,11,30,15,14,39,36,17,48,27,20,57,24,23,66,63,
%T 26,75,54,29,84,33,32,93,90,35,102,45,38,111,42,41,120,117,44,129,108,
%U 47,138,51,50,147,144,53,156,81,56,165,60,59,174,171,62,183,72,65,192
%N Earliest sequence with a(a(n))=3n.
%C a(3*n+1) = A016789(n), a(3*n+2) = A017197(n). - _Reinhard Zumkeller_, Jun 04 2015
%H T. D. Noe, <a href="/A002517/b002517.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Aa#aan">Index entries for sequences of the a(a(n)) = 2n family</a>
%F a(3n)=3*a(n), a(3n+1)=3n+2, a(3n+2)=9n+3
%t a[n_] := a[n] = Which[ Mod[n, 3] == 0, 3*a[n/3], Mod[n, 3] == 1, n+1, True, 3*(n-1)]; Table[a[n], {n, 0, 65}] (* _Jean-François Alcover_, Sep 24 2012 *)
%o (Haskell)
%o import Data.List (transpose)
%o a002517 n = a002517_list !! n
%o a002517_list = 0 : concat
%o (transpose [[2, 5 ..], [3, 12 ..], map (* 3) $ tail a002517_list])
%o -- _Reinhard Zumkeller_, Jun 04 2015
%Y Cf. A002516, A007379, A005843.
%Y Cf. A007494 (sorted), A016789, A017197.
%K nonn,nice,easy
%O 0,2
%A _Colin Mallows_
%E Formula and more terms from _Henry Bottomley_, Apr 27 2000