A366263 Doudna sequence permuted by Blue code: a(n) = A005940(1+A193231(n)).

1, 2, 4, 3, 6, 5, 9, 8, 16, 27, 25, 18, 15, 12, 10, 7, 14, 11, 21, 20, 35, 30, 24, 45, 81, 32, 54, 125, 36, 75, 49, 50, 100, 147, 121, 98, 225, 72, 150, 245, 625, 162, 64, 243, 250, 343, 375, 108, 33, 28, 22, 13, 40, 63, 55, 42, 90, 175, 135, 48, 77, 70, 60, 105, 210, 385, 315, 120, 143, 154, 140, 231, 525, 180

Offset: 0

Author

Antti Karttunen, Oct 06 2023

Keywords

• nonn
• look

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16383
• Index entries for sequences related to binary expansion of n
• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A005940, A193231, A234022, A268389, A277818, A286601, A286602, A332450, A366264 (inverse map).

Cf. also A365810, A366260, A366275.

Programs

PARI

A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
A193231(n) = { my(x='x); subst(lift(Mod(1, 2)*subst(Pol(binary(n), x), x, 1+x)), x, 2) };
A366263(n) = A005940(1+A193231(n));

Formula

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

For all n >= 0, A001222(a(n)) = A234022(n) and A046523(a(n)) = A286601(n).

For all n >= 1, A055396(a(n)) = A277818(n) = 1+A268389(n).