A279338 a(1) = 1, for n > 1, if A079559(n) = 0, a(n) = 2*a(A256992(n)), otherwise a(n) = A003961(a(A256992(n))).

1, 2, 3, 5, 4, 6, 7, 9, 10, 15, 11, 8, 12, 14, 25, 21, 18, 35, 13, 20, 30, 27, 45, 22, 33, 49, 16, 24, 28, 50, 55, 75, 42, 77, 17, 36, 70, 63, 105, 26, 125, 175, 40, 60, 54, 39, 65, 90, 121, 81, 44, 66, 135, 99, 98, 147, 91, 32, 48, 56, 100, 110, 245, 165, 150, 143, 19, 84, 154, 225, 231, 34, 275, 385, 72, 140, 126, 51, 343, 210, 539, 189, 52

Offset

1,2

Comments

A more recursed variant of A279336.

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Index entries for sequences that are permutations of the natural numbers

Formula

a(1) = 1; for n > 1, if A079559(n) = 0 [when n is a term of A055938], a(n) = 2*a(A256992(n)), otherwise a(n) = A003961(a(A256992(n))).

As a composition of other permutations:

a(n) = A163511(A279341(n)).

a(n) = A005940(1+A279343(n)).

a(n) = A250246(A279348(n)).

Prog

(Scheme)
(definec (A279338 n) (cond ((= 1 n) n) ((zero? (A079559 n)) (* 2 (A279338 (A256992 n)))) (else (A003961 (A279338 (A256992 n))))))

Crossrefs

Inverse: A279339.

Cf. A003961, A055938, A079559, A256992, A278502.

Related or similar permutations: A005940, A163511, A250246, A279336, A279341, A279343, A279348.

Sequence in context: A279336 A275375 A225047 * A279348 A274500 A123917

Adjacent sequences: A279335 A279336 A279337 * A279339 A279340 A279341

Keyword

nonn,look

Author

Antti Karttunen, Dec 10 2016

Status

approved