|
%I #11 May 20 2021 14:37:48
%S 0,2,9,4,27,6,45,8,63,18,11,90,13,108,15,126,17,144,81,20,171,22,189,
%T 24,207,26,225,36,29,252,31,270,33,288,35,306,243,38,333,40,351,42,
%U 369,44,387,54,47,414,49,432,51,450,53,468,405,56,495,58,513,60,531,62,549
%N Earliest sequence with a(a(n)) = 9n.
%H <a href="/index/Aa#aan">Index entries for sequences of the a(a(n)) = 2n family</a>
%t a[0] = 0; a[n_] := Which[m = Mod[n, 18]; m == 0, 9*n-81, m == 9, n+9, MemberQ[ {1, 3, 5, 7, 10, 12, 14, 16}, m], n+1, True, 9*n-9]; Table[ a[n], {n, 0, 62}] (* _Jean-François Alcover_, Sep 24 2012 *)
%Y Cf. A002516, A002517, A002518, A007379, A008585.
%K nice,nonn
%O 0,2
%A _Henry Bottomley_, Apr 27 2000
|
