|
%I #38 Jan 31 2021 14:15:27
%S 1,31,331,3331,33331,333331,3333331,33333331,333333331,3333333331,
%T 33333333331,333333333331,3333333333331,33333333333331,
%U 333333333333331,3333333333333331,33333333333333331,333333333333333331,3333333333333333331,33333333333333333331
%N n 3's followed by 1.
%D F. Smarandache, Properties of numbers, University of Craiova, 1973.
%H Muniru A Asiru, <a href="/A033175/b033175.txt">Table of n, a(n) for n = 0..990</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/3.html">3</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (11,-10)
%F a(n) = (10^(n+1) - 7)/3.
%F a(n) = 10*a(n-1) + 21 (with a(0)=1). - _Vincenzo Librandi_, Nov 17 2010
%F G.f.: ( 1+20*x ) / ( (10*x-1)*(x-1) ). - _R. J. Mathar_, Aug 24 2011
%t Table[FromDigits[PadLeft[{1},n,3]],{n,20}] (* _Harvey P. Dale_, Feb 21 2013 *)
%o (PARI) a(n)=(10^(n+1)-7)/3 \\ _Charles R Greathouse IV_, Oct 07 2015
%o (GAP) List([0..20],n->(10^(n+1)-7)/3); # _Muniru A Asiru_, Oct 31 2018
%o (Python)
%o def a(n): return int('3'*n + '1')
%o print([a(n) for n in range(20)]) # _Michael S. Branicky_, Jan 31 2021
%Y Cf. A051200.
%K nonn,base,easy
%O 0,2
%A Jan Jensen (dorul(AT)post6.tele.dk)
|
