The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A246363 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A246363

Permutation of natural numbers: a(n) = A135141(A048673(n)).
(history; published version)

#9 by N. J. A. Sloane at Wed Aug 27 14:53:07 EDT 2014

STATUS

proposed

approved

#8 by Antti Karttunen at Tue Aug 26 17:41:08 EDT 2014

STATUS

editing

proposed

#7 by Antti Karttunen at Tue Aug 26 17:25:10 EDT 2014

CROSSREFS

Cf. A000035, A003961, A246260, A246261, A246263.

#6 by Antti Karttunen at Tue Aug 26 17:21:20 EDT 2014

COMMENTS

Also, apart from A246263(1) = 2, the positions given by the rest of A246263: 5, 6, 7, 8, 15, 17, 18, 19, 20, 21, ... contain odd numbers only.

CROSSREFS

Cf. A003961, A246261, A246263.

#5 by Antti Karttunen at Tue Aug 26 17:20:23 EDT 2014

COMMENTS

Apart from 2, even numbers occur only in positions given by A246261 (together with some odd numbers).

Also, apart from A246263(1) = 2, the positions given by A246263: 5, 6, 7, 8, 15, 17, 18, 19, 20, 21, ... contain odd numbers only.

CROSSREFS

Cf. Related or similar permutations: A048673, A135141, A246365, A246367.

Cf. A246261, A246263.

#4 by Antti Karttunen at Tue Aug 26 15:43:28 EDT 2014

LINKS

<a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

#3 by Antti Karttunen at Tue Aug 26 15:42:32 EDT 2014

LINKS

Antti Karttunen, <a href="/A246363/b246363.txt">Table of n, a(n) for n = 1..10000</a>

#2 by Antti Karttunen at Tue Aug 26 15:31:09 EDT 2014

NAME

allocated for Antti KarttunenPermutation of natural numbers: a(n) = A135141(A048673(n)).

DATA

1, 2, 4, 8, 3, 9, 5, 13, 10, 16, 6, 14, 7, 12, 35, 20, 17, 79, 11, 67, 71, 33, 19, 271, 39, 31, 139, 87, 15, 30, 18, 311, 47, 34, 63, 74, 23, 29, 26, 351, 21, 28, 27, 24, 303, 69, 25, 2431, 70, 223, 135, 319, 37, 1663, 65, 58, 41, 38, 32, 219, 43, 127, 367, 327, 287, 239, 55, 107, 46, 283, 22, 413, 51, 53, 147

OFFSET

1,2

FORMULA

a(n) = A135141(A048673(n)).

PROG

(PARI)

A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ Using code of Michel Marcus

A048673(n) = (A003961(n)+1)/2;

A135141(n) = if(1==n, 1, if(isprime(n), 2*A135141(primepi(n)), 1+(2*A135141(n-primepi(n)-1))));

A246363(n) = A135141(A048673(n));

for(n=1, 10000, write("b246363.txt", n, " ", A246363(n)));

(Scheme) (define (A246363 n) (A135141 (A048673 n)))

CROSSREFS

Inverse: A246364.

Cf. A048673, A135141, A246365, A246367.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Aug 26 2014

STATUS

approved

editing

#1 by Antti Karttunen at Sun Aug 24 12:19:04 EDT 2014

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved