A333879 a(n) is the number of primes 2^(n-1) <= p < 2^n with maximal Hamming weight A091937(n-1) in this interval.

1, 1, 2, 1, 3, 1, 4, 4, 3, 1, 5, 1, 4, 18, 3, 1, 8, 1, 11, 4, 5, 31, 7, 1, 2, 33, 1, 5, 4, 1, 7, 5, 1, 1, 9, 55, 6, 71, 7, 1, 6, 69, 4, 7, 2, 1, 10, 3, 3, 1, 2, 1, 6, 95, 4, 3, 61, 1, 8, 1, 3, 110, 3, 1, 8, 1, 2, 2, 3, 98, 9, 1, 5, 2, 5, 8, 3, 125, 10, 3, 81, 2

Offset

2,3

Links

Giovanni Resta, Table of n, a(n) for n = 2..1000

Mathematica

a[2]=1; a[n_] := Block[{c = 0, nb = 0}, While[c == 0, c = Count[2^n - 1 - Total /@ Subsets[2^Range[n - 2], {nb}], x_ /; PrimeQ[x]]; nb++]; c]; a /@ Range[2, 85] (* Giovanni Resta, Apr 09 2020 *)

Crossrefs

Cf. A091937, A091938, A333877, A333878.

Sequence in context: A225045 A361736 A278575 * A175126 A142884 A347028

Adjacent sequences: A333876 A333877 A333878 * A333880 A333881 A333882

Keyword

nonn

Author

Hugo Pfoertner, Apr 08 2020

Extensions

Terms a(35) and beyond from Giovanni Resta, Apr 09 2020

Status

approved