A275846 - OEIS

%I #7 Aug 13 2016 11:09:28

%S 0,1,3,5,2,9,4,15,7,21,11,29,6,17,41,10,8,23,12,57,16,13,14,33,18,77,

%T 22,19,20,45,25,101,31,27,28,63,35,129,43,39,40,87,47,165,59,53,55,

%U 111,24,65,213,81,26,71,75,141,34,89,269,105,30,37,95,99,32,183,36,46,113,341,38,135,48,42,51,119,50,125,44,231,49,64,143,431,54,52

%N Permutation of natural numbers: a(0) = 0, a(A255411(n)) = A153880(n), a(A256450(n)) = A273670(a(n)).

%H Antti Karttunen, <a href="/A275846/b275846.txt">Table of n, a(n) for n = 0..5039</a>

%H <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

%F a(0) = 0; for n >= 1: if A257680(n) = 0 [when n is one of the terms of A255411] then a(n) = A153880(A257684(n)), otherwise [when n is one of the terms of A256450], a(n) = A273670(a(A273662(n))).

%o (Scheme, with memoization-macro definec)

%o (definec (A275846 n) (cond ((zero? n) n) ((zero? (A257680 n)) (A153880 (A257684 n))) (else (A273670 (A275846 (A273662 n))))))

%Y Inverse: A275845.

%Y Cf. A153880, A255411, A256450, A257680, A257684, A273662, A273670.

%Y Similar permutations: A273668 (a more recursed variant), A275847, A275848.

%K nonn,base

%O 0,3

%A _Antti Karttunen_, Aug 13 2016