OFFSET
1,3
COMMENTS
It would be nice to have an explicit definition.
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
Peter J. Cameron, A Puzzle, Blog, Aug 05 2020.
Peter J. Cameron, Puzzle Solution, Blog, Aug 13 2020.
PROG
(PARI) S(n) = { my (s=[], i); while (n, i=valuation(n, 2); s=concat(s, i); n-=2^i); s }
is(n) = my (s=S(n), z=if (#s, Set(concat(apply(S, s))), [])); setintersect(s, z)==[] \\ Rémy Sigrist, Aug 14 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 13 2020
EXTENSIONS
More terms from Rémy Sigrist, Aug 14 2020
STATUS
approved