OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{m = 240}, Complement[Prime[Range[m]], Table[n + DigitCount[n, 2, 1], {n, 0, Prime[m]}]]]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amiram Eldar, Jun 28 2024
STATUS
approved