cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-9 of 9 results.

A007583 a(n) = (2^(2*n + 1) + 1)/3.

Original entry on oeis.org

1, 3, 11, 43, 171, 683, 2731, 10923, 43691, 174763, 699051, 2796203, 11184811, 44739243, 178956971, 715827883, 2863311531, 11453246123, 45812984491, 183251937963, 733007751851, 2932031007403, 11728124029611, 46912496118443, 187649984473771, 750599937895083
Offset: 0

Views

Author

Keywords

Comments

Let u(k), v(k), w(k) be the 3 sequences defined by u(1)=1, v(1)=0, w(1)=0 and u(k+1)=u(k)+v(k)-w(k), v(k+1)=u(k)-v(k)+w(k), w(k+1)=-u(k)+v(k)+w(k); let M(k)=Max(u(k),v(k),w(k)); then a(n)=M(2n)=M(2n-1). - Benoit Cloitre, Mar 25 2002
Also the number of words of length 2n generated by the two letters s and t that reduce to the identity 1 by using the relations ssssss=1, tt=1 and stst=1. The generators s and t along with the three relations generate the dihedral group D6=C2xD3. - Jamaine Paddyfoot (jay_paddyfoot(AT)hotmail.com) and John W. Layman, Jul 08 2002
Binomial transform of A025192. - Paul Barry, Apr 11 2003
Number of walks of length 2n+1 between two adjacent vertices in the cycle graph C_6. Example: a(1)=3 because in the cycle ABCDEF we have three walks of length 3 between A and B: ABAB, ABCB and AFAB. - Emeric Deutsch, Apr 01 2004
Numbers of the form 1 + Sum_{i=1..m} 2^(2*i-1). - Artur Jasinski, Feb 09 2007
Prime numbers of the form 1+Sum[2^(2n-1)] are in A000979. Numbers x such that 1+Sum[2^(2n-1)] is prime for n=1,2,...,x is A127936. - Artur Jasinski, Feb 09 2007
Related to A024493(6n+1), A131708(6n+3), A024495(6n+5). - Paul Curtz, Mar 27 2008
Let A be the Hessenberg matrix of order n, defined by: A[1,j]=1, A[i,i]:=-6, (i>1), A[i,i-1]=-1, and A[i,j]=0 otherwise. Then, for n>=1, a(n-1)=(-1)^(n-1)*charpoly(A,2). - Milan Janjic, Feb 21 2010
Number of toothpicks in the toothpick structure of A139250 after 2^n stages. - Omar E. Pol, Feb 28 2011
Numbers whose binary representation is "10" repeated (n-1) times with "11" appended on the end, n >= 1. For example 171 = 10101011 (2). - Omar E. Pol, Nov 22 2012
a(n) is the smallest number for which A072219(a(n)) = 2*n+1. - Ramasamy Chandramouli, Dec 22 2012
An Engel expansion of 2 to the base b := 4/3 as defined in A181565, with the associated series expansion 2 = b + b^2/3 + b^3/(3*11) + b^4/(3*11*43) + .... Cf. A007051. - Peter Bala, Oct 29 2013
The positive integer solution (x,y) of 3*x - 2^n*y = 1, n>=0, with smallest x is (a(n/2), 2) if n is even and (a((n-1)/2), 1) if n is odd. - Wolfdieter Lang, Feb 15 2014
The smallest positive number that requires at least n additions and subtractions of powers of 2 to be formed. See Puzzling StackExchange link. - Alexander Cooke Jul 16 2023

References

  • H. W. Gould, Combinatorial Identities, Morgantown, 1972, (1.77), page 10.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Partial sums of A081294.
Cf. location of records in A007302.

Programs

  • GAP
    List([0..25], n-> (2^(2*n+1) + 1)/3); # G. C. Greubel, Dec 25 2019
  • Haskell
    a007583 = (`div` 3) . (+ 1) . a004171
    -- Reinhard Zumkeller, Jan 09 2013
    
  • Magma
    [(2^(2*n+1) + 1)/3: n in [0..30] ]; // Vincenzo Librandi, Apr 28 2011
    
  • Maple
    a[0]:=1:for n from 1 to 50 do a[n]:=4*a[n-1]-1 od: seq(a[n], n=0..23); # Zerinvary Lajos, Feb 22 2008, with correction by K. Spage, Aug 20 2014
    A007583 := proc(n)
        (2^(2*n+1)+1)/3 ;
    end proc: # R. J. Mathar, Feb 19 2015
  • Mathematica
    (* From Michael De Vlieger, Aug 22 2016 *)
    Table[(2^(2n+1) + 1)/3, {n, 0, 23}]
    Table[1 + 2Sum[4^k, {k, 0, n-1}], {n, 0, 23}]
    NestList[4# -1 &, 1, 23]
    Table[Sum[Binomial[n+k, 2k]/2^(k-n), {k, 0, n}], {n, 0, 23}]
    CoefficientList[Series[(1-2x)/(1-5x+4x^2), {x, 0, 23}], x] (* End *)
  • PARI
    a(n)=sum(k=-n\3,n\3,binomial(2*n+1,n+1+3*k))
    
  • PARI
    a=1; for(n=1,23, print1(a,", "); a=bitor(a,3*a)) \\ K. Spage, Aug 20 2014
    
  • PARI
    Vec((1-2*x)/(1-5*x+4*x^2) + O(x^30)) \\ Altug Alkan, Dec 08 2015
    
  • PARI
    apply( {A007583(n)=2<<(2*n)\/3}, [0..25]) \\ M. F. Hasler, Nov 30 2021
    
  • Sage
    [(2^(2*n+1) + 1)/3 for n in (0..25)] # G. C. Greubel, Dec 25 2019
    

Formula

a(n) = 2*A002450(n) + 1.
From Wolfdieter Lang, Apr 24 2001: (Start)
a(n) = Sum_{m = 0..n} A060920(n, m) = A002450(n+1) - 2*A002450(n).
G.f.: (1-2*x)/(1-5*x+4*x^2). (End)
a(n) = Sum_{k = 0..n} binomial(n+k, 2*k)/2^(k - n).
a(n) = 4*a(n-1) - 1, n > 0.
From Paul Barry, Mar 17 2003: (Start)
a(n) = 1 + 2*Sum_{k = 0..n-1} 4^k;
a(n) = A001045(2n+1). (End)
a(n) = A020988(n-1) + 1 = A039301(n+1) - 1 = A083584(n-1) + 2. - Ralf Stephan, Jun 14 2003
a(0) = 1; a(n+1) = a(n) * 4 - 1. - Regis Decamps (decamps(AT)users.sf.net), Feb 04 2004 (correction to lead index by K. Spage, Aug 20 2014)
a(n) = Sum_{i + j + k = n; 0 <= i, j, k <= n} (n+k)!/i!/j!/(2*k)!. - Benoit Cloitre, Mar 25 2004
a(n) = 5*a(n-1) - 4*a(n-2). - Emeric Deutsch, Apr 01 2004
a(n) = 4^n - A001045(2*n). - Paul Barry, Apr 17 2004
a(n) = 2*(A001045(n))^2 + (A001045(n+1))^2. - Paul Barry, Jul 15 2004
a(n) = left and right terms in M^n * [1 1 1] where M = the 3X3 matrix [1 1 1 / 1 3 1 / 1 1 1]. M^n * [1 1 1] = [a(n) A002450(n+1) a(n)] E.g. a(3) = 43 since M^n * [1 1 1] = [43 85 43] = [a(3) A002450(4) a(3)]. - Gary W. Adamson, Dec 18 2004
a(n) = A072197(n) - A020988(n). - Creighton Dement, Dec 31 2004
a(n) = A139250(2^n). - Omar E. Pol, Feb 28 2011
a(n) = A193652(2*n+1). - Reinhard Zumkeller, Aug 08 2011
a(n) = Sum_{k = -floor(n/3)..floor(n/3)} binomial(2*n, n+3*k)/2. - Mircea Merca, Jan 28 2012
a(n) = 2^(2*(n+1)) - A072197(n). - Vladimir Pletser, Apr 12 2014
a(n) == 2*n + 1 (mod 3). Indeed, from Regis Decamps' formula (Feb 04 2004) we have a(i+1) - a(i) == -1 (mod 3), i= 0, 1, ..., n - 1. Summing, we have a(n) - 1 == -n (mod 3), and the formula follows. - Vladimir Shevelev, May 20 2015
For n > 0 a(n) = A133494(0) + 2 * (A133494(n) + Sum_{x = 1..n - 1}Sum_{k = 0..x - 1}(binomial(x - 1, k)*(A133494(k+1) + A133494(n-x+k)))). - J. Conrad, Dec 06 2015
a(n) = Sum_{k = 0..2n} (-2)^k == 1 + Sum_{k = 1..n} 2^(2k-1). - Bob Selcoe, Aug 21 2016
E.g.f.: (1 + 2*exp(3*x))*exp(x)/3. - Ilya Gutkovskiy, Aug 21 2016
A075680(a(n)) = 1, for n > 0. - Ralf Stephan, Jun 17 2025

A020988 a(n) = (2/3)*(4^n-1).

Original entry on oeis.org

0, 2, 10, 42, 170, 682, 2730, 10922, 43690, 174762, 699050, 2796202, 11184810, 44739242, 178956970, 715827882, 2863311530, 11453246122, 45812984490, 183251937962, 733007751850, 2932031007402, 11728124029610, 46912496118442, 187649984473770, 750599937895082
Offset: 0

Views

Author

Keywords

Comments

Numbers whose binary representation is 10, n times (see A163662(n) for n >= 1). - Alexandre Wajnberg, May 31 2005
Numbers whose base-4 representation consists entirely of 2's; twice base-4 repunits. - Franklin T. Adams-Watters, Mar 29 2006
Expected time to finish a random Tower of Hanoi problem with 2n disks using optimal moves, so (since 2n is even and A010684(2n) = 1) a(n) = A060590(2n). - Henry Bottomley, Apr 05 2001
a(n) is the number of derangements of [2n + 3] with runs consisting of consecutive integers. E.g., a(1) = 10 because the derangements of {1, 2, 3, 4, 5} with runs consisting of consecutive integers are 5|1234, 45|123, 345|12, 2345|1, 5|4|123, 5|34|12, 45|23|1, 345|2|1, 5|4|23|1, 5|34|2|1 (the bars delimit the runs). - Emeric Deutsch, May 26 2003
For n > 0, also smallest numbers having in binary representation exactly n + 1 maximal groups of consecutive zeros: A087120(n) = a(n-1), see A087116. - Reinhard Zumkeller, Aug 14 2003
Number of walks of length 2n + 3 between any two diametrically opposite vertices of the cycle graph C_6. Example: a(0) = 2 because in the cycle ABCDEF we have two walks of length 3 between A and D: ABCD and AFED. - Emeric Deutsch, Apr 01 2004
From Paul Barry, May 18 2003: (Start)
Row sums of triangle using cumulative sums of odd-indexed rows of Pascal's triangle (start with zeros for completeness):
0 0
1 1
1 4 4 1
1 6 14 14 6 1
1 8 27 49 49 27 8 1 (End)
a(n) gives the position of the n-th zero in A173732, i.e., A173732(a(n)) = 0 for all n and this gives all the zeros in A173732. - Howard A. Landman, Mar 14 2010
Smallest number having alternating bit sum -n. Cf. A065359. For n = 0, 1, ..., the last digit of a(n) is 0, 2, 0, 2, ... . - Washington Bomfim, Jan 22 2011
Number of toothpicks minus 1 in the toothpick structure of A139250 after 2^n stages. - Omar E. Pol, Mar 15 2012
For n > 0 also partial sums of the odd powers of 2 (A004171). - K. G. Stier, Nov 04 2013
Values of m such that binomial(4*m + 2, m) is odd. Cf. A002450. - Peter Bala, Oct 06 2015
For a(n) > 2, values of m such that m is two steps away from a power of 2 under the Collatz iteration. - Roderick MacPhee, Nov 10 2016
a(n) is the position of the first occurrence of 2^(n+1)-1 in A020986. See the Brillhart and Morton link, pp. 856-857. - John Keith, Jan 12 2021
a(n) is the number of monotone paths in the n-dimensional cross-polytope for a generic linear orientation. See the Black and De Loera link. - Alexander E. Black, Feb 15 2023

Crossrefs

Programs

Formula

a(n) = 4*a(n-1) + 2, a(0) = 0.
a(n) = A026644(2*n).
a(n) = A007583(n) - 1 = A039301(n+1) - 2 = A083584(n-1) + 1.
E.g.f. : (2/3)*(exp(4*x)-exp(x)). - Paul Barry, May 18 2003
a(n) = A007583(n+1) - 1 = A039301(n+2) - 2 = A083584(n) + 1. - Ralf Stephan, Jun 14 2003
G.f.: 2*x/((1-x)*(1-4*x)). - R. J. Mathar, Sep 17 2008
a(n) = a(n-1) + 2^(2n-1), a(0) = 0. - Washington Bomfim, Jan 22 2011
a(n) = A193652(2*n). - Reinhard Zumkeller, Aug 08 2011
a(n) = 5*a(n-1) - 4*a(n-2) (n > 1), a(0) = 0, a(1) = 2. - L. Edson Jeffery, Mar 02 2012
a(n) = (2/3)*A024036(n). - Omar E. Pol, Mar 15 2012
a(n) = 2*A002450(n). - Yosu Yurramendi, Jan 24 2017
From Seiichi Manyama, Nov 24 2017: (Start)
Zeta_{GL(2)/F_1}(s) = Product_{k = 1..4} (s-k)^(-b(2,k)), where Sum b(2,k)*t^k = t*(t-1)*(t^2-1). That is Zeta_{GL(2)/F_1}(s) = (s-3)*(s-2)/((s-4)*(s-1)).
Zeta_{GL(2)/F_1}(s) = Product_{n > 0} (1 - (1/s)^n)^(-A295521(n)) = Product_{n > 0} (1 - x^n)^(-A295521(n)) = (1-3*x)*(1-2*x)/((1-4*x)*(1-x)) = 1 + Sum_{k > 0} a(k-1)*x^k (x=1/s). (End)
From Oboifeng Dira, May 29 2020: (Start)
a(n) = A078008(2n+1) (second bisection).
a(n) = Sum_{k=0..n} binomial(2n+1, ((n+2) mod 3)+3k). (End)
From John Reimer Morales, Aug 04 2025: (Start)
a(n) = A000302(n) - A047849(n).
a(n) = A020522(n) + A000079(n) - A047849(n). (End)

Extensions

Edited by N. J. A. Sloane, Sep 06 2006

A140966 a(n) = (5 + (-2)^n)/3.

Original entry on oeis.org

2, 1, 3, -1, 7, -9, 23, -41, 87, -169, 343, -681, 1367, -2729, 5463, -10921, 21847, -43689, 87383, -174761, 349527, -699049, 1398103, -2796201, 5592407, -11184809, 22369623, -44739241, 89478487, -178956969, 357913943, -715827881, 1431655767, -2863311529, 5726623063
Offset: 0

Views

Author

Paul Curtz, Jul 27 2008

Keywords

Comments

Inverse binomial transform of A048573.
This is an example of the case k=-1 of sequences with recurrences a(n) = k*a(n-1) + (k+3)*a(n-2) - (2*k+2)*a(n-3).
The case k=1 is covered, for example, by A097163, A135520, A136326, A136336, or A137208.
Sequences with k=2 are A094554 and A094555.
Sequences with k=3 are A084175, A108924, and A139818.

Crossrefs

Programs

Formula

a(n) = -a(n-1) + 2*a(n-2).
G.f.: (2+3*x)/((1-x)*(1+2*x)).
a(n+1) - a(n) = (-1)^(n+1)*A000079(n).
a(n+3) = (-1)^n*A083582(n).
a(n+1) - 2*a(n) = -a(n+2).
a(n+1) - 3*a(n) = 5*(-1)^(n+1)*A078008(n) = (-1)^(n+1)*A001045(n-1).
a(2n+3) = -A083584(n), a(2n) = A163834(n). - Philippe Deléham, Feb 24 2014
E.g.f.: (5*exp(x) + exp(-2*x))/3. - Stefano Spezia, Jul 27 2024

Extensions

Definition simplified by R. J. Mathar, Sep 11 2009

A039301 Number of distinct quadratic residues mod 4^n.

Original entry on oeis.org

1, 2, 4, 12, 44, 172, 684, 2732, 10924, 43692, 174764, 699052, 2796204, 11184812, 44739244, 178956972, 715827884, 2863311532, 11453246124, 45812984492, 183251937964, 733007751852, 2932031007404, 11728124029612, 46912496118444, 187649984473772, 750599937895084
Offset: 0

Views

Author

Keywords

Comments

Number of distinct n-digit suffixes of base 4 squares.

Programs

  • Magma
    [Floor((4^n+10)/6): n in [0..40] ]; // Vincenzo Librandi, Apr 28 2011
  • Mathematica
    Floor[(4^Range[0, 30] + 10)/6] (* Paolo Xausa, Jan 29 2025 *)

Formula

a(n) = floor((4^n+10)/6).
a(n) = A007583(n-1)+1 = A020988(n-2)+2 = A083584(n-2)+3. - Ralf Stephan, Jun 14 2003
Also, a(0)=1 and, for n>0, a(n) = (4^n+8)/6. - Bruno Berselli, Jul 27 2010
G.f.: (1-3*x-2*x^2)/((1-x)*(1-4*x)). - Bruno Berselli, Jul 27 2010
a(n)-5*a(n-1)+4*a(n-2) = 0 for n>1. - Bruno Berselli, Jul 27 2010

A166984 a(n) = 20*a(n-1) - 64*a(n-2) for n > 1; a(0) = 1, a(1) = 20.

Original entry on oeis.org

1, 20, 336, 5440, 87296, 1397760, 22368256, 357908480, 5726601216, 91625881600, 1466015154176, 23456246661120, 375299963355136, 6004799480791040, 96076791961092096, 1537228672451215360, 24595658763514413056, 393530540233410478080, 6296488643803287126016
Offset: 0

Views

Author

Klaus Brockhaus, Oct 26 2009

Keywords

Comments

Partial sums of A166965.
First differences of A006105. - Klaus Purath, Oct 15 2020

Crossrefs

Programs

  • Magma
    [n le 2 select 19*n-18 else 20*Self(n-1)-64*Self(n-2): n in [1..17] ];
    
  • Mathematica
    LinearRecurrence[{20,-64},{1,20},30] (* Harvey P. Dale, Jul 04 2012 *)
  • PARI
    a(n) = (4*16^n - 4^n)/3 \\ Charles R Greathouse IV, Jun 21 2022
    
  • SageMath
    A166984=BinaryRecurrenceSequence(20,-64,1,20)
    [A166984(n) for n in range(31)] # G. C. Greubel, Oct 02 2024

Formula

a(n) = (4*16^n - 4^n)/3.
G.f.: 1/((1-4*x)*(1-16*x)).
Limit_{n -> oo} a(n)/a(n-1) = 16.
a(n) = A115490(n+1)/3.
Sum_{n>=0} a(n) x^(2*n+4)/(2*n+4)! = ( sinh(x) )^4/4!. - Robert A. Russell, Apr 03 2013
From Klaus Purath, Oct 15 2020: (Start)
a(n) = A002450(n+1)*(A002450(n+2) - A002450(n))/5.
a(n) = (A083584(n+1)^2 - A083584(n)^2)/80. (End)
a(n) = (A079598(n) - A000302(n))/24. - César Aguilera, Jun 21 2022
a(n) = 16*a(n-1) + 4^n with a(0) = 1. - Nadia Lafreniere, Aug 08 2022
E.g.f.: (4/3)*exp(10*x)*sinh(6*x + log(2)). - G. C. Greubel, Oct 02 2024

A238303 Triangle T(n,k), 0<=k<=n, read by rows given by T(n,0) = 1, T(n,k) = 2 if k>0.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
Offset: 0

Views

Author

Philippe Deléham, Feb 24 2014

Keywords

Comments

Row sums are A005408(n).
Diagonals sums are A109613(n).
Sum_{k=0..n} T(n,k)*x^k = A033999(n), A000012(n), A005408(n), A036563(n+2), A058481(n+1), A083584(n), A137410(n), A233325(n), A233326(n), A233328(n), A211866(n+1), A165402(n+1) for x = -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 respectively.
Sum_{k=0..n} T(n,k)*x^(n-k) = A151575(n), A000012(n), A040000(n), A005408(n), A033484(n), A048473(n), A020989(n), A057651(n), A061801(n), A238275(n), A238276(n), A138894(n), A090843(n), A199023(n) for x = -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 respectively.
Sum_{k=0..n} T(n,k)^x = A000027(n+1), A005408(n), A016813(n), A017077(n) for x = 0, 1, 2, 3 respectively.
Sum_{k=0..n} k*T(n,k) = A002378(n).
Sum_{k=0..n} A000045(k)*T(n,k) = A019274(n+2).
Sum_{k=0..n} A000142(k)*T(n,k) = A066237(n+1).

Examples

			Triangle begins:
1;
1, 2;
1, 2, 2;
1, 2, 2, 2;
1, 2, 2, 2, 2;
1, 2, 2, 2, 2, 2;
1, 2, 2, 2, 2, 2, 2;
1, 2, 2, 2, 2, 2, 2, 2;
1, 2, 2, 2, 2, 2, 2, 2, 2;
1, 2, 2, 2, 2, 2, 2, 2, 2, 2;
1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2;
1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2;
...
		

Crossrefs

Cf. Diagonals: A040000.
Cf. Columns: A000012, A007395.
First differences of A001614.

Programs

Formula

T(n,0) = A000012(n) = 1, T(n+k,k) = A007395(n) = 2 for k>0.

Extensions

Data section extended to a(104) by Antti Karttunen, Jan 19 2025

A137215 a(n) = 3*(10^n) + (n^2 + 1)*(10^n - 1)/9.

Original entry on oeis.org

3, 32, 355, 4110, 48887, 588886, 7111107, 85555550, 1022222215, 12111111102, 142222222211, 1655555555542, 19111111111095, 218888888888870, 2488888888888867, 28111111111111086, 315555555555555527, 3522222222222222190, 39111111111111111075, 432222222222222222182
Offset: 0

Views

Author

Ctibor O. Zizka, Mar 06 2008

Keywords

Comments

Sequence generalized: a(n) = a(0)*(B^n) + F(n)* ((B^n)-1)/(B-1); a(0), B integers, F(n) arithmetic function.
Examples:
a(0) = 1, B = 10, F(n) = 1 gives A002275, F(n) = 2 gives A090843, F(n) = 3 gives A097166, F(n) = 4 gives A099914, F(n) = 5 gives A099915.
a(0) = 1, B = 2, F(n) = 1 gives A000225, F(n) = 2 gives A033484, F(n) = 3 gives A036563, F(n) = 4 gives A048487, F(n) = 5 gives A048488, F(n) = 6 gives A048489.
a(0) = 1, B = 3, F(n) = 1 gives A003462, F(n) = 2 gives A048473, F(n) = 3 gives A134931, F(n) = 4 gives A058481, F(n) = 5 gives A116952.
a(0) = 1, B = 4, F(n) = 1 gives A002450, F(n) = 2 gives A020989, F(n) = 3 gives A083420, F(n) = 4 gives A083597, F(n) = 5 gives A083584.
a(0) = 1, B = 5, F(n) = 1 gives A003463, F(n) = 2 gives A057651, F(n) = 3 gives A117617, F(n) = 4 gives A081655.
a(0) = 2, B = 10, F(n) = 1 gives A037559, F(n) = 2 gives A002276.

Examples

			a(3) = 3*10^3 + (3*3 + 1)*(10^3 - 1)/9 = 4110.
		

Crossrefs

Programs

  • Mathematica
    Table[3*10^n +(n^2 +1)*(10^n -1)/9, {n,0,30}] (* G. C. Greubel, Jan 05 2022 *)
  • PARI
    a(n) = 3*(10^n) + (n*n+1)*((10^n)-1)/9; \\ Jinyuan Wang, Feb 27 2020
    
  • Sage
    [3*10^n +(1+n^2)*(10^n -1)/9 for n in (0..30)] # G. C. Greubel, Jan 05 2022

Formula

a(n) = 3*(10^n) + (n^2 + 1)*(10^n - 1)/9.
O.g.f.: (3 - 67*x + 478*x^2 - 1002*x^3 + 850*x^4 - 100*x^5)/((1-x)^3 * (1-10*x)^3). - R. J. Mathar, Mar 16 2008

Extensions

More terms from R. J. Mathar, Mar 16 2008
More terms from Jinyuan Wang, Feb 27 2020

A267599 Binary representation of the n-th iteration of the "Rule 177" elementary cellular automaton starting with a single ON (black) cell.

Original entry on oeis.org

1, 1, 1001, 101001, 10101001, 1010101001, 101010101001, 10101010101001, 1010101010101001, 101010101010101001, 10101010101010101001, 1010101010101010101001, 101010101010101010101001, 10101010101010101010101001, 1010101010101010101010101001
Offset: 0

Views

Author

Robert Price, Jan 18 2016

Keywords

References

  • S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.

Crossrefs

Programs

  • Mathematica
    rule=177; rows=20; ca=CellularAutomaton[rule,{{1},0},rows-1,{All,All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]],{rows-k+1,rows+k-1}],{k,1,rows}]; (* Truncated list of each row *) Table[FromDigits[catri[[k]]],{k,1,rows}]   (* Binary Representation of Rows *)

Formula

Conjectures from Colin Barker, Jan 18 2016 and Apr 20 2019: (Start)
a(n) = 101*a(n-1)-100*a(n-2) for n>2.
G.f.: (1-100*x+1000*x^2) / ((1-x)*(1-100*x)).
(End)

A238339 Square number array read by ascending antidiagonals: T(1,k) = 2*k + 1, and T(n,k) = (2*n^(k+1)-n-1)/(n-1) otherwise.

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 5, 5, 1, 1, 7, 13, 7, 1, 1, 9, 25, 29, 9, 1, 1, 11, 41, 79, 61, 11, 1, 1, 13, 61, 169, 241, 125, 13, 1, 1, 15, 85, 311, 681, 727, 253, 15, 1, 1, 17, 113, 517, 1561, 2729, 2185, 509, 17, 1, 1, 19, 145, 799, 3109, 7811, 10921, 6559, 1021, 19, 1
Offset: 0

Views

Author

Philippe Deléham, Feb 24 2014

Keywords

Examples

			Square array begins:
1..1...1.....1......1.......1........1........1...
1..3...5.....7......9......11.......13.......15...
1..5..13....29.....61.....125......253......509...
1..7..25....79....241.....727.....2185.....6559...
1..9..41...169....681....2729....10921....43689...
1.11..61...311...1561....7811....39061...195311...
1.13..85...517...3109...18661...111973...671845...
1.15.113...799...5601...39215...274513..1921599...
1.17.145..1169...9361...74897...599185..4793489...
1.19.181..1639..14761..132859..1195741.10761679...
1.21.221..2221..22221..222221..2222221.22222221...
		

Crossrefs

Cf. A238303.

Programs

  • Maple
    T:= proc(n, k); if n=1 then 2*k+1 else (2*n^(k+1)-n-1)/(n-1) fi end:
    seq(seq(T(n-k, k), k=0..n), n=0..10); # Georg Fischer, Oct 14 2023

Formula

T(0,k) = A000012(k) = 1;
T(1,k) = A005408(k) = 2k+1;
T(2,k) = A036563(k+2);
T(3,k) = A058481(k+1);
T(4,k) = A083584(k);
T(5,k) = A137410(k);
T(6,k) = A233325(k);
T(7,k) = A233326(k);
T(8,k) = A233328(k);
T(9,k) = A211866(k+1);
T(10,k) = A165402(k+1);
T(n,0) = A000012(n) = 1;
T(n,1) = A005408(n) = 2*n+1;
T(n,2) = A001844(n) = 2*n^2 + 2*n + 1.

Extensions

Definition amended by Georg Fischer, Oct 14 2023
Showing 1-9 of 9 results.