%I #57 Jan 12 2025 17:35:58
%S 0,2,16,114,800,5602,39216,274514,1921600,13451202,94158416,659108914,
%T 4613762400,32296336802,226074357616,1582520503314,11077643523200,
%U 77543504662402,542804532636816,3799631728457714,26597422099204000
%N Numbers whose base-7 representation is 222....2.
%H Davis Smith, <a href="/A125725/b125725.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (8,-7).
%F a(n) = (7^(n-1) - 1)/3 = 2*A023000(n-1).
%F a(n) = 7*a(n-1) + 2, with a(1)=0. - _Vincenzo Librandi_, Sep 30 2010
%F G.f.: 2*x^2 / ( (1-x)*(1-7*x) ). - _R. J. Mathar_, Sep 30 2013
%F From _Davis Smith_, Apr 04 2019: (Start)
%F A007310(a(n) + 1) = 7^(n - 1).
%F A047522(a(n + 1)) = -1*A165759(n). (End)
%F E.g.f.: (exp(7*x) - 7*exp(x) + 6)/21. - _Stefano Spezia_, Jan 12 2025
%e base 7.......decimal
%e 0..................0
%e 2..................2
%e 22................16
%e 222..............114
%e 2222.............800
%e 22222...........5602
%e 222222.........39216
%e 2222222.......274514
%e 22222222.....1921600
%e 222222222...13451202
%e etc...........etc.
%p seq(2*(7^n-1)/6, n=0..25);
%t FromDigits[#,7]&/@Table[PadLeft[{2},n,2],{n,0,25}] (* _Harvey P. Dale_, Apr 13 2011 *)
%t (7^(Range[25]-1) - 1)/3 (* _G. C. Greubel_, May 23 2019 *)
%o (PARI) vector(25, n, (7^(n-1)-1)/3) \\ _Davis Smith_, Apr 04 2019
%o (Magma) [0] cat [n:n in [1..15000000]| Set(Intseq(n,7)) subset [2]]; // _Marius A. Burtea_, May 06 2019
%o (Magma) [(7^(n-1)-1)/3: n in [1..25]]; // _Marius A. Burtea_, May 06 2019
%o (Sage) [(7^(n-1) -1)/3 for n in (1..25)] # _G. C. Greubel_, May 23 2019
%o (GAP) List([1..25], n-> (7^(n-1) -1)/3); # _G. C. Greubel_, May 23 2019
%Y Cf. A007310, A023000, A047522, A165759.
%Y Cf. also A002276, A005610, A020988, A024023, A125831, A125835, A125857 for related or similarly constructed sequences.
%K easy,nonn,base
%O 1,2
%A _Zerinvary Lajos_, Feb 02 2007
%E Offset corrected by _N. J. A. Sloane_, Oct 02 2010