|
%I #7 Dec 12 2016 09:12:20
%S 1,2,3,5,4,6,7,9,8,12,11,13,19,14,10,17,35,20,67,21,22,24,131,27,15,
%T 28,16,29,259,30,515,33,25,36,18,37,1027,40,46,43,2051,44,4099,45,23,
%U 48,8195,51,26,52,53,55,16387,58,41,59,70,60,32771,61,65539,62,39,65,47,68,131075,69,78,72,262147,75,524291,76,38,77,34,80
%N a(1) = 1, for n > 1, if n is even, a(n) = A055938(n/2), otherwise a(n) = A005187(a(A064989(n))).
%C For n > 1, a(n) = the number which is in the same position of array A256997 where n is located in array A246278.
%H Antti Karttunen, <a href="/A279337/b279337.txt">Table of n, a(n) for n = 1..2048</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(1) = 1; for n > 1, if n is even, a(n) = A055938(n/2), otherwise a(n) = A005187(a(A064989(n))).
%F Other identities: For all n >= 2, a(n) = A256997(A252752(n)).
%o (Scheme)
%o (definec (A279337 n) (cond ((= 1 n) n) ((even? n) (A055938 (/ n 2))) (else (A005187 (A279337 (A064989 n))))))
%Y Inverse: A279336.
%Y Cf. A005187, A055938, A064989, A246278, A252752, A256997.
%Y Cf. also A279339 (a variant).
%K nonn
%O 1,2
%A _Antti Karttunen_, Dec 10 2016
|
