A279336 Permutation of natural numbers: a(1) = 1; for n > 1, if A079559(n) = 0, a(n) = 2*A234016(n), otherwise a(n) = A003961(a(A213714(n))).

1, 2, 3, 5, 4, 6, 7, 9, 8, 15, 11, 10, 12, 14, 25, 27, 16, 35, 13, 18, 20, 21, 45, 22, 33, 49, 24, 26, 28, 30, 125, 81, 32, 77, 17, 34, 36, 75, 63, 38, 55, 175, 40, 42, 44, 39, 65, 46, 121, 135, 48, 50, 51, 99, 52, 105, 343, 54, 56, 58, 60, 62, 625, 243, 64, 143, 19, 66, 68, 57, 225, 70, 245, 275, 72, 74, 76, 69, 91, 78, 539, 189, 80

Offset

1,2

Comments

For n > 1, a(n) = the number which is in the same position of array A246278 where n is located in array A256997.

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*A234016(n), otherwise a(n) = A003961(a(A213714(n))).

Other identities:

For all n >= 2, a(n) = A246278(A256998(n)).

Prog

(Scheme)
(definec (A279336 n) (cond ((= 1 n) n) ((zero? (A079559 n)) (* 2 (A234016 n))) (else (A003961 (A279336 (A213714 n))))))

Crossrefs

Inverse permutation: A279337.

Cf. A003961, A005187, A079559, A213714, A234016, A246278, A256997, A256998.

Cf. also A278501, A279338 (a variant).

Sequence in context: A257677 A105363 A279337 * A275375 A225047 A279338

Adjacent sequences: A279333 A279334 A279335 * A279337 A279338 A279339

Keyword

nonn

Author

Antti Karttunen, Dec 10 2016

Status

approved