OFFSET
1,1
COMMENTS
A binary analog of A269415.
Clearly 1 is the only term of odd weight that can appear, and if it is true (which is not presently known) that there infinitely many prime gaps of 2, 4, 6, 8, etc. then every number of even weight will appear.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[1] = 3; a[n_] := a[n] = Module[{k = 1, s = Sum[DigitCount[a[i], 2, 1], {i, 1, n - 1}]}, While[!FreeQ[Array[a, n - 1], k] || !PrimeQ[s + DigitCount[k, 2, 1]], k++]; k]; Array[a, 100] (* Amiram Eldar, Jul 18 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 11 2016
EXTENSIONS
a(13) corrected by Chai Wah Wu, Nov 11 2016
More terms from Chai Wah Wu, Nov 11 2016
STATUS
approved