login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers that are repdigits in base 9.
3

%I #34 Jan 21 2022 07:51:02

%S 0,1,2,3,4,5,6,7,8,10,20,30,40,50,60,70,80,91,182,273,364,455,546,637,

%T 728,820,1640,2460,3280,4100,4920,5740,6560,7381,14762,22143,29524,

%U 36905,44286,51667,59048,66430,132860,199290,265720,332150,398580

%N Numbers that are repdigits in base 9.

%H Vincenzo Librandi, <a href="/A048334/b048334.txt">Table of n, a(n) for n = 0..800</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Repdigit.html">Repdigit</a>.

%H <a href="/index/Rec#order_16">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,-9).

%F G.f.: x*(1+2*x+3*x^2+4*x^3+5*x^4+6*x^5+7*x^6+8*x^7) / ( (x-1) *(1+x) *(x^2+1) *(3*x^4-1) *(3*x^4+1) *(x^4+1) ). - _R. J. Mathar_, Mar 14 2015

%F a(n) = 10*a(n-8) -9*a(n-16). - _R. J. Mathar_, Mar 14 2015

%F Sum_{n>=1} 1/a(n) = (761/35) * A248726 = 3.02323812974071904119... - _Amiram Eldar_, Jan 21 2022

%t Union[Flatten[Table[FromDigits[PadRight[{}, n, d], 9], {n, 0, 40}, {d, 8}]]] (* _Vincenzo Librandi_, Feb 06 2014 *)

%t Table[FromDigits[IntegerDigits[(n-9*Floor[(n-1)/9])*(10^Floor[(n+8)/9]-1)/9],9],{n,0,50}] (* _Zak Seidov_, Mar 15 2015 *)

%t f[n_] := Block[{r = FromDigits[#, 9] & /@ (Table[1, {#}] & /@ Range@ n)},

%t Sort@ Flatten[Times[r, #] & /@ Range@ 8]]; f[6] (* _Michael De Vlieger_, Mar 15 2015 *)

%t LinearRecurrence[{0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,-9},{0,1,2,3,4,5,6,7,8,10,20,30,40,50,60,70},47] (* _Ray Chandler_, Jul 15 2015 *)

%o (PARI) lista(nn) = for (n=0, nn, if ((n==0) || (#Set(digits(n, 9)) == 1), print1(n, ", "))); \\ _Michel Marcus_, Mar 17 2015

%Y Cf. A010785, A033022, A028987, A028988, A248726.

%K nonn,base

%O 0,3

%A _Patrick De Geest_, Feb 15 1999