Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Aug 13 2016 11:08:55
%S 0,1,4,2,6,3,12,8,16,5,15,10,18,21,22,7,20,13,24,27,28,9,26,17,48,30,
%T 52,33,34,11,60,32,64,23,56,36,66,61,70,39,40,14,73,38,78,29,67,42,72,
%U 80,76,74,85,45,84,46,88,19,89,44,90,97,94,35,81,49,87,99,93,91,105,53,96,104,100,54,109,25,108,110,112,51,111,121,114,117,118,41
%N Permutation of natural numbers: a(0) = 0, a(A153880(n)) = A255411(n), a(A273670(n)) = A256450(a(n)).
%H Antti Karttunen, <a href="/A275845/b275845.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(A225901(n)) = 0 [when n is one of the terms of A153880] then a(n) = A255411(A266193(n)), otherwise [when n is one of the terms of A273670], a(n) = A256450(a(A273663(n))).
%F Other identities:
%F a(A000142(n)) = A052849(n) for all n >= 2.
%o (Scheme, with memoization-macro definec)
%o (definec (A275845 n) (cond ((zero? n) n) ((zero? (A257680 (A225901 n))) (A255411 (A266193 n))) (else (A256450 (A275845 (A273663 n))))))
%Y Inverse: A275846.
%Y Cf. A000142, A052849, A153880, A225901, A255411, A256450, A257680, A266193, A273663, A273670.
%Y Similar permutations: A273667 (a more recursed variant), A275847, A275848.
%K nonn,base
%O 0,3
%A _Antti Karttunen_, Aug 13 2016