OFFSET
3,1
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
KEYWORD
AUTHOR
Clark Kimberling, May 11 2023
EXTENSIONS
New offset and edited by Michel Marcus, Jan 19 2024
STATUS
approved