login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A297163 Permutation of natural numbers: a(n) = A156552(1+A005940(1+n)). 4
1, 2, 3, 4, 5, 8, 9, 6, 7, 16, 15, 32, 65, 128, 35, 64, 11, 10, 33, 18, 27, 1024, 513, 12, 25, 130, 515, 2048, 77, 36, 8193, 34, 17, 256, 129, 512, 71, 8192, 63, 4096, 133, 524288, 65537, 131072, 271, 72, 519, 24, 262145, 70, 8195, 33554432, 16389, 34359738368, 1073741825, 1048576, 65543, 9007199254740992, 131079 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Note the indexing: although the domain starts from 0, the range excludes zero.

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..440

David Newman, et al, New sequences from old, Discussion on SeqFan-mailing list, January 2018.

Index entries for sequences related to binary expansion of n

Index entries for sequences that are permutations of the natural numbers

Index entries for sequences computed from indices in prime factorization

PROG

(PARI)

A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t }; \\ Modified from code of M. F. Hasler

A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};

A156552(n) = if(1==n, 0, if(!(n%2), 1+(2*A156552(n/2)), 2*A156552(A064989(n))));

A297163(n) = A156552(1+A005940(1+n));

(Scheme) (define (A297163 n) (A156552 (+ 1 (A005940 (+ 1 n)))))

CROSSREFS

Inverse: A297164.

Cf. A005940, A156552.

Cf. also A297165.

Sequence in context: A171979 A181694 A297166 * A319024 A039260 A039200

Adjacent sequences:  A297160 A297161 A297162 * A297164 A297165 A297166

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jan 05 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 24 10:48 EDT 2019. Contains 323529 sequences. (Running on oeis4.)