OFFSET
1,3
COMMENTS
PROG
(PARI) is(n, base=2)={ my (b=digits(n, base), p=[]); for (k=1, #b, p=concat(p, b[k]); if (b[k], p=Vecrev(p))); n==fromdigits(p, base) }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Apr 04 2020
STATUS
approved