OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..500
Eric Weisstein's World of Mathematics, Repdigit.
FORMULA
Conjecture: G.f.: x*(1+2*x+3*x^2+4*x^3+5*x^4) / ( (x-1)*(x^4+x^3+x^2+x+1)*(6*x^5-1) ) with a(n) = 7*a(n-5) - 6*a(n-10). - R. J. Mathar, Mar 15 2015
Sum_{n>=1} 1/a(n) = (137/12) * A248723 = 2.67320256903907177403... - Amiram Eldar, Jan 21 2022
EXAMPLE
14_10 = 22_6, 21_10_ = 33_6, 9331_10_ = 111111_6.
MATHEMATICA
Union[Flatten[Table[FromDigits[PadRight[{}, n, d], 6], {n, 0, 40}, {d, 5}]]] (* Vincenzo Librandi, Feb 06 2014 *)
PROG
(Magma) [0] cat [k:k in [1..2*10^6]| #Set(Intseq(k, 6)) eq 1]; // Marius A. Burtea, Oct 11 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Feb 15 1999
STATUS
approved