login

Revision History for A339906

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Numbers k for which A339812(2k) >= A339902(k).
(history; published version)
#9 by Susanna Cuyler at Thu Dec 24 21:22:32 EST 2020
STATUS

proposed

approved

#8 by Antti Karttunen at Thu Dec 24 15:03:17 EST 2020
STATUS

editing

proposed

#7 by Antti Karttunen at Tue Dec 22 11:36:28 EST 2020
COMMENTS

First terms with binary weights (A000120) w = 1..9 are: 1, 5, 14, 141, 4111, 25676, 41674, 1094530, 423297.

LINKS

Antti Karttunen, <a href="/A339906/b339906.txt">Table of n, a(n) for n = 1..514</a>

#6 by Antti Karttunen at Mon Dec 21 22:10:46 EST 2020
COMMENTS

Terms of (1/2)*A048675(A339907(i)), for i >= 1, sorted into ascending order.

#5 by Antti Karttunen at Mon Dec 21 22:09:10 EST 2020
#4 by Antti Karttunen at Mon Dec 21 21:36:52 EST 2020
CROSSREFS

Cf. A000079 (a subsequence).

#3 by Antti Karttunen at Mon Dec 21 21:08:55 EST 2020
COMMENTS

The first term not present in A339816 is 10, the second is 642; the first term of A339816 not present here is 12, the second is 21.

EXAMPLE

10 ("1010" in binary) is present, because it encodes an odd squarefree number 5*11, for which phi(55) = 4*10 = 40, and bigomega(55-1) = 4 >= 4 = bigomega(40).

12 ("1100" in binary) is NOT present, because it encodes an odd squarefree number 7*11, for which phi(77) = 6*10 = 60, and bigomega(77-1) = 3 < 4 = bigomega(60).

#2 by Antti Karttunen at Mon Dec 21 11:10:51 EST 2020
NAME

allocated Numbers k for Antti Karttunenwhich A339812(2k) >= A339902(k).

DATA

1, 2, 4, 5, 8, 9, 10, 14, 16, 18, 32, 64, 65, 72, 84, 128, 129, 132, 136, 141, 145, 170, 256, 258, 261, 385, 448, 512, 516, 578, 642, 912, 1024, 1040, 1049, 1160, 1352, 2048, 4096, 4097, 4100, 4111, 4160, 4652, 4675, 4864, 5124, 5280, 8192, 8193, 8194, 8195, 8196, 8200, 8214, 8216, 8258, 8320, 8329, 8468, 8704

OFFSET

1,2

PROG

(PARI)

A019565(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= p); n >>= 1); (m); };

A339812(n) = bigomega(A019565(n)-1);

A339902(n) = { my(s=0, p=2); while(n>0, p = nextprime(1+p); if(n%2, s += bigomega(p-1)); n >>= 1); (s); };

isA339906(n) = (A339812(2*n) >= A339902(n));

(PARI)

A019565(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= p); n >>= 1); (m); };

isA339906(n) = { my(x=A019565(2*n)); (bigomega(eulerphi(x))<=bigomega(x-1)); };

CROSSREFS

Cf. A339907.

Cf. also A339816.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Dec 21 2020

STATUS

approved

editing

#1 by Antti Karttunen at Mon Dec 21 09:32:02 EST 2020
NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved