OFFSET
1,1
COMMENTS
Identical to (base 10) non-palindromic numbers A029742 up to a(83) = 101 which is a term of this sequence but not in A029742. - M. F. Hasler, Sep 08 2015
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Repdigit.
Wikipedia, Repdigit
Chai Wah Wu, Algorithms for complementary sequences, arXiv:2409.05844 [math.NT], 2024.
FORMULA
A202022(a(n)) = 0. - Reinhard Zumkeller, Dec 09 2011
MAPLE
isA139819 := proc(n)
convert(n, base, 10) ;
convert(%, set) ;
simplify(nops(%) >1 ) ;
end proc: # R. J. Mathar, Jan 17 2017
PROG
(Haskell) a139819 n = a139819_list !! (n-1)
a139819_list = filter ((== 0) . a202022) [0..] -- Reinhard Zumkeller, Dec 09 2011
(PARI) is_A139819(n)=#Set(digits(n))>1 \\ M. F. Hasler, Sep 08 2015
(Python)
def A139819(n):
m, k = n, n+9*((l:=len(str(n)))-1)+9*n//(10**l-1)
while m != k:
m, k = k, n+9*((l:=len(str(k)))-1)+9*k//(10**l-1)
return m # Chai Wah Wu, Sep 04 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jun 02 2008
STATUS
approved