OFFSET
1,1
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
PROG
(PARI) is(n, base=10) = { my (v=0); while (n, my (d=n%base, w=0); while (n%base==d, n\=base; w++); v+=(-1)^w); v>0 } \\ Rémy Sigrist, Nov 07 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Incorrect formula removed by Rémy Sigrist, Nov 07 2020
STATUS
approved