A059873 The lexicographically earliest sequence of binary encodings of solutions satisfying the equation given in A059871.

1, 3, 5, 13, 21, 46, 78, 175, 303, 639, 1143, 2539, 4542, 9214, 17406, 36735, 69374, 139254, 270327, 556031, 1079294, 2162678, 4259819, 8642558, 17022974, 34078590, 67632893, 136249338, 270401534, 541064701, 1077935867, 2162163707

Offset

1,2

Comments

The encoding is explained in A059872. Apply bin_prime_sum (see A059876) to this sequence and you get A000040, the prime numbers.

Links

Sean A. Irvine, Table of n, a(n) for n = 1..50

Maple

primesums_primes_search(16); primesums_primes_search := (upto_n) -> primesums_primes_search_aux([], 1, upto_n); primesums_primes_search_aux := proc(a, n, upto_n) local i, p, t; if(n > upto_n) then RETURN(a); fi; p := ithprime(n); for i from (2^(n-1)) to ((2^n)-1) do t := bin_prime_sum(i); if(t = p) then print([op(a), i]); RETURN(primesums_primes_search_aux([op(a), i], n+1, upto_n)); fi; od; RETURN([op(a), `and no more found`]); end;

Crossrefs

Cf. A059459, A059874, A059875.

Sequence in context: A218790 A168388 A059872 * A239314 A059874 A059875

Adjacent sequences: A059870 A059871 A059872 * A059874 A059875 A059876

Keyword

nonn

Author

Antti Karttunen, Feb 05 2001

Extensions

More terms from Naohiro Nomoto, Sep 12 2001

More terms from Larry Reeves (larryr(AT)acm.org), Nov 20 2003

Status

approved