A362979 Square array, read by descending antidiagonals: row n lists the primes whose base-2 representation has exactly n ones, starting from n=3.

7, 11, 23, 13, 29, 31, 19, 43, 47, 311

Offset

3,1

Links

Table of n, a(n) for n=3..12.

Example

Corner:
  n=3:    7    11    13    19    37   41     67    73    97
  n=4:   23    29    43    53    71   83     89   101   113
  n=5:   31    47    59    61    79   103   107   109   151
  n=6:  311   317   347   349   359   373   461   467   571
The first four primes in row n=3 have these base-2 representations, respectively: 111, 1011, 1101, 10011.

Mathematica

t[n_] := Count[IntegerDigits[Prime[n], 2], 1]  (* A014499 *)
u = Table[t[n], {n, 1, 200}];
p[n_] := Flatten[Position[u, n]]
w = TableForm[Table[Prime[p[n]], {n, 3, 16}]]

Crossrefs

Cf. A000040, A014499.

Cf. A019434 (row 2), A061712 (column 1), A081091 (row 3), A095077 (row 4).

Sequence in context: A345680 A175651 A372045 * A284052 A211433 A039511

Adjacent sequences: A362976 A362977 A362978 * A362980 A362981 A362982

Keyword

nonn,base,tabl,more

Author

Clark Kimberling, May 11 2023

Extensions

New offset and edited by Michel Marcus, Jan 19 2024

Status

approved