login
A366260
Doudna sequence permuted by May code: a(n) = A005940(1+A303767(n)).
5
1, 2, 4, 3, 9, 5, 6, 8, 16, 7, 10, 12, 15, 27, 25, 18, 54, 11, 14, 20, 21, 45, 35, 30, 24, 32, 49, 50, 36, 75, 81, 125, 625, 13, 22, 28, 33, 63, 55, 42, 40, 48, 77, 70, 60, 105, 135, 175, 90, 162, 121, 98, 100, 147, 225, 245, 150, 72, 64, 343, 250, 108, 375, 243, 729, 17, 26, 44, 39, 99, 65, 66, 56, 80, 91, 110
OFFSET
0,2
PROG
(PARI)
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
A209229(n) = (n && !bitand(n, n-1));
A053644(n) = { my(k=1); while(k<=n, k<<=1); (k>>1); }; \\ From A053644
A303767(n) = if(!n, n, if(A209229(n), n+A303767(n-1), A053644(n)+A303767(n-A053644(n)-1)));
A366260(n) = A005940(1+A303767(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 05 2023
STATUS
approved