login
A245820
Permutation of natural numbers induced when A245704 is restricted to {1} and binary codes for polynomials reducible over GF(2): a(1) = 1, a(n) = A062298(A245704(A091242(n-1))).
4
1, 2, 3, 4, 5, 7, 9, 6, 10, 13, 16, 8, 11, 14, 17, 22, 26, 15, 19, 20, 23, 27, 34, 39, 25, 12, 29, 31, 35, 40, 50, 24, 56, 37, 21, 43, 46, 38, 51, 57, 70, 48, 36, 78, 53, 33, 61, 18, 65, 55, 71, 79, 95, 67, 52, 30, 106, 75, 49, 42, 85, 54, 28, 89, 77, 96, 107, 74, 126, 92, 73, 45, 141, 98, 101, 69, 59, 116, 76, 41, 120, 105
OFFSET
1,2
FORMULA
a(1) = 1, and for n > 1, a(n) = 1 + A245704(n-1).
a(1) = 1, and for n > 1, a(n) = A062298(A245704(A091242(n-1))). [Induced when A245704 is restricted to {1} and binary codes for polynomials reducible over GF(2)].
a(1) = 1, and for n > 1, a(n) = A036234(A245704(A014580(n-1))). [Induced also when A245703 is restricted to {1} and other binary codes for polynomials not reducible over GF(2)].
As a composition of related permutations:
a(n) = A245816(A245813(n)).
PROG
(PARI)
A245820(n) = if(1==n, 1, 1 + A245704(n-1));
for(n=1, 10001, write("b245820.txt", n, " ", A245820(n))); \\ The rest of code can be found in A245704.
(Scheme, three different implementations)
(define (A245820 n) (if (<= n 1) n (+ 1 (A245704 (- n 1)))))
(define (A245820 n) (if (<= n 1) n (A062298 (A245704 (A091242 (- n 1))))))
(define (A245820 n) (if (<= n 1) n (A036234 (A245704 (A014580 (- n 1))))))
CROSSREFS
Inverse: A245819.
Related permutations: A245704, A245813, A245816.
Sequence in context: A212317 A161751 A354126 * A105362 A361299 A115928
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 16 2014
STATUS
approved