OFFSET
1,3
COMMENTS
LINKS
Rémy Sigrist, Illustration of initial terms
EXAMPLE
See illustration in Links section.
PROG
(PARI) is(n) = { my (b=binary(n), d=1, s=[d], z=2*d); for (k=1, #b, if (b[k], d*=I, d/=I); if (setsearch(s, z+=d), return (0), s=setunion(s, [z]); z+=d)); return (1) }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, May 07 2021
STATUS
approved