The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A364289

Numbers k such that A243071(k) >= k.
(history; published version)

#7 by Michael De Vlieger at Tue Jul 25 12:31:05 EDT 2023

STATUS

proposed

approved

#6 by Antti Karttunen at Tue Jul 25 11:37:37 EDT 2023

STATUS

editing

proposed

#5 by Antti Karttunen at Tue Jul 25 11:34:15 EDT 2023

COMMENTS

If k is present, then 2*k is also present, and vice versa.

#4 by Antti Karttunen at Tue Jul 25 11:02:04 EDT 2023

CROSSREFS

Cf. A007283 (subsequence), A243071, A364290 (complement).

#3 by Antti Karttunen at Tue Jul 25 10:59:58 EDT 2023

CROSSREFS

Cf. A243071, A364290 (complement).

Cf. also A364287.

#2 by Antti Karttunen at Tue Jul 25 10:56:01 EDT 2023

NAME

allocated for Antti KarttunenNumbers k such that A243071(k) >= k.

DATA

3, 5, 6, 7, 10, 11, 12, 13, 14, 17, 19, 20, 21, 22, 23, 24, 26, 28, 29, 31, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 65, 66, 67, 68, 69, 71, 73, 74, 76, 78, 79, 80, 82, 83, 84, 85, 86, 87, 88, 89, 91, 92, 93, 94, 95, 96, 97, 99, 101, 102, 103, 104, 106, 107, 109

OFFSET

1,1

PROG

(PARI)

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

A243071(n) = if(n<=2, n-1, if(!(n%2), 2*A243071(n/2), 1+(2*A243071(A064989(n)))));

isA364289(n) = (A243071(n)>=n);

CROSSREFS

Positions of terms <= 0 in A364288.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Jul 25 2023

STATUS

approved

editing

#1 by Antti Karttunen at Mon Jul 17 22:58:01 EDT 2023

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved