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-10 of 12 results. Next

A167374 Triangle, read by rows, given by [ -1,1,0,0,0,0,0,0,0,...] DELTA [1,0,0,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, -1, 1, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1
Offset: 0

Views

Author

Philippe Deléham, Nov 02 2009

Keywords

Comments

Riordan array (1-x,1) read by rows; Riordan inverse is (1/(1-x),1). Columns have g.f. (1-x)x^k. Diagonal sums are A033999. Unsigned version in A097806.
Table T(n,k) read by antidiagonals. T(n,1) = 1, T(n,2) = -1, T(n,k) = 0, k > 2. - Boris Putievskiy, Jan 17 2013
Finite difference operator (pair difference): left multiplication by T of a sequence arranged as a column vector gives a running forward difference, a(k+1)-a(k), or first finite difference (modulo sign), of the elements of the sequence. T^n gives the n-th finite difference (mod sign). T is the inverse of the summation matrix A000012 (regarded as lower triangular matrices). - Tom Copeland, Mar 26 2014

Examples

			Triangle begins:
   1;
  -1,  1;
   0, -1,  1;
   0,  0, -1,  1;
   0,  0,  0, -1,  1;
   0,  0,  0,  0, -1,  1; ...
Row number r (r>4) contains (r-2) times '0', then '-1' and '1'.
From _Boris Putievskiy_, Jan 17 2013: (Start)
The start of the sequence as a table:
  1  -1  0  0  0  0  0 ...
  1  -1  0  0  0  0  0 ...
  1  -1  0  0  0  0  0 ...
  1  -1  0  0  0  0  0 ...
  1  -1  0  0  0  0  0 ...
  1  -1  0  0  0  0  0 ...
  1  -1  0  0  0  0  0 ...
  ...
(End)
		

Crossrefs

Programs

  • Maple
    A167374 := proc(n,k)
        if k> n or k < n-1 then
            0;
        elif k = n then
            1;
        else
            -1 ;
        end if;
    end proc: # R. J. Mathar, Sep 07 2016
  • Mathematica
    Table[PadLeft[{-1, 1}, n], {n, 13}] // Flatten (* or *)
    MapIndexed[Take[#1, First@ #2] &, CoefficientList[Series[(1 - x)/(1 - x y), {x, 0, 12}], {x, y}]] // Flatten (* Michael De Vlieger, Nov 16 2016 *)
    T[n_, k_] := If[ k<0 || k>n, 0, Boole[n==k] - Boole[n==k+1]]; (* Michael Somos, Oct 01 2022 *)
  • PARI
    {T(n, k) = if( k<0 || k>n, 0, (n==k) - (n==k+1))}; /* Michael Somos, Oct 01 2022 */

Formula

Sum_{k, 0<=k<=n} T(n,k)*x^k = A000007(n), A011782(n), A025192(n), A002001(n), A005054(n), A052934(n), A055272(n), A055274(n), A055275(n), A055268(n), A055276(n) for x = 1,2,3,4,5,6,7,8,9,10,11 respectively .
From Boris Putievskiy, Jan 17 2013: (Start)
a(n) = floor((A002260(n)+2)/(A003056(n)+2))*(-1)^(A002260(n)+A003056(n)+1), n>0.
a(n) = floor((i+2)/(t+2))*(-1)^(i+t+1), n > 0, where
i = n - t*(t+1)/2,
t = floor((-1 + sqrt(8*n-7))/2). (End)
T*A000012 = Identity matrix. T*A007318 = A097805. T*(A007318)^(-1)= signed A029653. - Tom Copeland, Mar 26 2014
G.f.: (1-x)/(1-x*y). - R. J. Mathar, Aug 11 2015
T = A130595*A156644 = M*T^(-1)*M = M*A000012*M, where M(n,k) = (-1)^n A130595(n,k). Note that M = M^(-1). Cf. A118800 and A097805. - Tom Copeland, Nov 15 2016

A214101 T(n,k)=Number of 0..2 colorings of an nx(k+1) array circular in the k+1 direction with new values 0..2 introduced in row major order.

Original entry on oeis.org

1, 1, 3, 3, 2, 9, 5, 19, 4, 27, 11, 30, 121, 8, 81, 21, 143, 180, 771, 16, 243, 43, 322, 2041, 1080, 4913, 32, 729, 85, 1179, 5068, 29540, 6480, 31307, 64, 2187, 171, 3110, 37441, 79968, 428383, 38880, 199497, 128, 6561, 341, 10183, 121588, 1241355, 1262128
Offset: 1

Views

Author

R. H. Hardin Jul 04 2012

Keywords

Comments

Table starts
..1..1....3....5.....11......21.......43........85........171.........341
..3..2...19...30....143.....322.....1179......3110......10183.......28842
..9..4..121..180...2041....5068....37441....121588.....722009.....2720828
.27..8..771.1080..29540...79968..1241355...4807928...54733587...263068168
.81.16.4913.6480.428383.1262128.41634729.190532944.4254090231.25595530224

Examples

			Some solutions for n=4 k=1
..0..1....0..1....0..1....0..1....0..1....0..1....0..1....0..1....0..1....0..1
..2..0....2..0....1..0....1..2....1..2....1..2....1..2....2..0....1..0....1..2
..0..1....1..2....0..1....0..1....2..0....2..0....2..0....0..2....2..1....0..1
..1..2....2..0....2..0....2..0....0..2....1..2....0..1....1..0....1..2....1..0
		

Crossrefs

Column 3 is A138977
Column 4 is A052934
Row 1 is A001045
Row 2 is A094554(n+1)

Formula

Empirical for column k:
k=1: a(n) = 3*a(n-1)
k=2: a(n) = 2*a(n-1)
k=3: a(n) = 7*a(n-1) -4*a(n-2)
k=4: a(n) = 6*a(n-1)
k=5: a(n) = 19*a(n-1) -71*a(n-2) +86*a(n-3) -24*a(n-4)
k=6: a(n) = 18*a(n-1) -36*a(n-2) +16*a(n-3)
k=7: a(n) = 54*a(n-1) -820*a(n-2) +4906*a(n-3) -11803*a(n-4) +11888*a(n-5) -4672*a(n-6) +576*a(n-7)
Empirical for row n:
n=1: a(k)=a(k-1)+2*a(k-2)
n=2: a(k)=2*a(k-1)+5*a(k-2)-6*a(k-3)
n=3: a(k)=3*a(k-1)+15*a(k-2)-33*a(k-3)-22*a(k-4)+38*a(k-5)+8*a(k-6)-8*a(k-7)
n=4: (order 11)
n=5: (order 29)
n=6: (order 40)

A200139 Triangle T(n,k), read by rows, given by (1,1,0,0,0,0,0,0,0,...) DELTA (1,0,0,0,0,0,0,0,0,...) where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 1, 1, 2, 3, 1, 4, 8, 5, 1, 8, 20, 18, 7, 1, 16, 48, 56, 32, 9, 1, 32, 112, 160, 120, 50, 11, 1, 64, 256, 432, 400, 220, 72, 13, 1, 128, 576, 1120, 1232, 840, 364, 98, 15, 1, 256, 1280, 2816, 3584, 2912, 1568, 560, 128, 17, 1, 512, 2816, 6912, 9984, 9408, 6048, 2688, 816, 162, 19, 1
Offset: 0

Views

Author

Philippe Deléham, Nov 13 2011

Keywords

Comments

Riordan array ((1-x)/(1-2x),x/(1-2x)).
Product A097805*A007318 as infinite lower triangular arrays.
Product A193723*A130595 as infinite lower triangular arrays.
T(n,k) is the number of ways to place n unlabeled objects into any number of labeled bins (with at least one object in each bin) and then designate k of the bins. - Geoffrey Critzer, Nov 18 2012
Apparently, rows of this array are unsigned diagonals of A028297. - Tom Copeland, Oct 11 2014
Unsigned A118800, so my conjecture above is true. - Tom Copeland, Nov 14 2016

Examples

			Triangle begins:
   1
   1,   1
   2,   3,   1
   4,   8,   5,   1
   8,  20,  18,   7,   1
  16,  48,  56,  32,   9,   1
  32, 112, 160, 120,  50,  11,   1
		

Crossrefs

Cf. A118800 (signed version), A081277, A039991, A001333 (antidiagonal sums), A025192 (row sums); diagonals: A000012, A005408, A001105, A002492, A072819l; columns: A011782, A001792, A001793, A001794, A006974, A006975, A006976.

Programs

  • Mathematica
    nn=15;f[list_]:=Select[list,#>0&];Map[f,CoefficientList[Series[(1-x)/(1-2x-y x) ,{x,0,nn}],{x,y}]]//Grid  (* Geoffrey Critzer, Nov 18 2012 *)

Formula

T(n,k) = 2*T(n-1,k)+T(n-1,k-1) with T(0,0)=T(1,0)=T(1,1)=1 and T(n,k)=0 for k<0 or for n
T(n,k) = A011782(n-k)*A135226(n,k) = 2^(n-k)*(binomial(n,k)+binomial(n-1,k-1))/2.
Sum_{k, 0<=k<=n} T(n,k)*x^k = A000007(n), A011782(n), A025192(n), A002001(n), A005054(n), A052934(n), A055272(n), A055274(n), A055275(n), A052268(n), A055276(n), A196731(n) for n=-1,0,1,2,3,4,5,6,7,8,9,10 respectively.
G.f.: (1-x)/(1-(2+y)*x).
T(n,k) = Sum_j>=0 T(n-1-j,k-1)*2^j.
T = A007318*A059260, so the row polynomials of this entry are given umbrally by p_n(x) = (1 + q.(x))^n, where q_n(x) are the row polynomials of A059260 and (q.(x))^k = q_k(x). Consequently, the e.g.f. is exp[tp.(x)] = exp[t(1+q.(x))] = e^t exp(tq.(x)) = [1 + (x+1)e^((x+2)t)]/(x+2), and p_n(x) = (x+1)(x+2)^(n-1) for n > 0. - Tom Copeland, Nov 15 2016
T^(-1) = A130595*(padded A130595), differently signed A118801. Cf. A097805. - Tom Copeland, Nov 17 2016
The n-th row polynomial in descending powers of x is the n-th Taylor polynomial of the rational function (1 + x)/(1 + 2*x) * (1 + 2*x)^n about 0. For example, for n = 4, (1 + x)/(1 + 2*x) * (1 + 2*x)^4 = (8*x^4 + 20*x*3 + 18*x^2 + 7*x + 1) + O(x^5). - Peter Bala, Feb 24 2018

A332821 One part of a 3-way classification of the positive integers. Numbers n for which A048675(n) == 1 (mod 3).

Original entry on oeis.org

2, 5, 9, 11, 12, 16, 17, 21, 23, 28, 30, 31, 39, 40, 41, 47, 49, 52, 54, 57, 59, 66, 67, 70, 72, 73, 75, 76, 83, 87, 88, 91, 96, 97, 100, 102, 103, 109, 111, 116, 126, 127, 128, 129, 130, 133, 135, 136, 137, 138, 148, 149, 154, 157, 159, 165, 167, 168, 169, 172, 175, 179, 180, 183, 184, 186, 190, 191, 197, 203, 211, 212
Offset: 1

Author

Antti Karttunen and Peter Munn, Feb 25 2020

Keywords

Comments

The positive integers are partitioned between A332820, this sequence and A332822.
For each prime p, the terms include exactly one of p and p^2. The primes alternate between this sequence and A332822. This sequence has the primes with odd indexes, those in A031368.
The terms are the even numbers in A332822 halved. The terms are also the numbers m such that 5m is in A332822, and so on for alternate primes: 11, 17, 23 etc. Likewise, the terms are the numbers m such that 3m is in A332820, and so on for alternate primes: 7, 13, 19 etc.
The numbers that are half of the even terms of this sequence are in A332820, which consists exactly of those numbers. The numbers that are one third of the terms that are multiples of 3 are in A332822, which consists exactly of those numbers. For larger primes, an alternating pattern applies as described in the previous paragraph.
If we take each odd term of this sequence and replace each prime in its factorization by the next smaller prime, the resulting number is in A332822, which consists entirely of those numbers.
The product of any 2 terms of this sequence is in A332822, the product of any 3 terms is in A332820, and the product of a term of A332820 and a term of this sequence is in this sequence. So if a number k is present, k^2 is in A332822, k^3 is in A332820, and k^4 is in this sequence.
If k is an even number, exactly one of {k/2, k, 2k} is in the sequence (cf. A191257 / A067368 / A213258); and generally if k is a multiple of a prime p, exactly one of {k/p, k, k*p} is in the sequence.

Crossrefs

Positions of ones in A332823; equivalently, numbers in row 3k+1 of A277905 for some k >= 0.
Subsequences: intersection of A026478 and A066208, A031368 (prime terms), A033431\{0}, A052934\{1}, A069486, A099800, A167747\{1}, A244725\{0}, A244728\{0}, A338911 (semiprime terms).

Programs

  • Mathematica
    Select[Range@ 212, Mod[Total@ #, 3] == 1 &@ Map[#[[-1]]*2^(PrimePi@ #[[1]] - 1) &, FactorInteger[#]] &] (* Michael De Vlieger, Mar 15 2020 *)
  • PARI
    isA332821(n) =  { my(f = factor(n)); (1==((sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2)%3)); };

Formula

{a(n) : n >= 1} = {2 * A332820(k) : k >= 1} U {A003961(A332822(k)) : k >= 1}.
{a(n) : n >= 1} = {A332822(k)^2 : k >= 1} U {A331590(2, A332820(k)) : k >= 1}.

A083067 6th row of number array A083064.

Original entry on oeis.org

1, 6, 41, 286, 2001, 14006, 98041, 686286, 4804001, 33628006, 235396041, 1647772286, 11534406001, 80740842006, 565185894041, 3956301258286, 27694108808001, 193858761656006, 1357011331592041, 9499079321144286
Offset: 0

Author

Paul Barry, Apr 21 2003

Keywords

Comments

Binomial transform of A052934 - Paul Barry, Apr 30 2003
Let A be the Hessenberg matrix of order n, defined by: A[1,j]=1, A[i,i]:=9, (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). [From Milan Janjic, Feb 21 2010]

Crossrefs

Programs

Formula

a(n) = (5*7^n+1)/6.
G.f.: (1-2*x)/((1-7*x)*(1-x)).
E.g.f.: (5*exp(7*x)+exp(x))/6.
a(n) = 7*a(n-1)-1 with a(0)=1. - Vincenzo Librandi, Aug 08 2010
a(n) = 8*a(n-1)-7*a(n-2). - Vincenzo Librandi, Nov 06 2011
a(n) = 7^n - sum(7^i, i=0..n-1) for n>0. [Bruno Berselli, Jun 20 2013]

A193723 Mirror of the fusion triangle A193722.

Original entry on oeis.org

1, 2, 1, 6, 5, 1, 18, 21, 8, 1, 54, 81, 45, 11, 1, 162, 297, 216, 78, 14, 1, 486, 1053, 945, 450, 120, 17, 1, 1458, 3645, 3888, 2295, 810, 171, 20, 1, 4374, 12393, 15309, 10773, 4725, 1323, 231, 23, 1, 13122, 41553, 58320, 47628, 24948, 8694, 2016, 300, 26, 1
Offset: 0

Author

Clark Kimberling, Aug 04 2011

Keywords

Comments

A193723 is obtained by reversing the rows of the triangle A193722.
Triangle T(n,k), read by rows, given by [2,1,0,0,0,0,0,0,0,...] DELTA [1,0,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938. - Philippe Deléham, Oct 04 2011
From Philippe Deléham, Nov 14 2011: (Start)
Riordan array ((1-x)/(1-3x), x/(1-3x)).
Product A200139*A007318 as infinite lower triangular arrays. (End)

Examples

			First six rows:
    1;
    2,   1;
    6,   5,   1;
   18,  21,   8,   1;
   54,  81,  45,  11,   1;
  162, 297, 216,  78,  14,   1;
		

Crossrefs

Cf. A084938, A193722, A052924 (antidiagonal sums), Diagonals: A000012, A016789, A081266, Columns: A025192, A081038.

Programs

  • Mathematica
    z = 9; a = 1; b = 1; c = 1; d = 2;
    p[n_, x_] := (a*x + b)^n ; q[n_, x_] := (c*x + d)^n
    t[n_, k_] := Coefficient[p[n, x], x^k]; t[n_, 0] := p[n, x] /. x -> 0;
    w[n_, x_] := Sum[t[n, k]*q[n + 1 - k, x], {k, 0, n}]; w[-1, x_] := 1
    g[n_] := CoefficientList[w[n, x], {x}]
    TableForm[Table[Reverse[g[n]], {n, -1, z}]]
    Flatten[Table[Reverse[g[n]], {n, -1, z}]] (* A193722 *)
    TableForm[Table[g[n], {n, -1, z}]]
    Flatten[Table[g[n], {n, -1, z}]] (* A193723 *)

Formula

Write w(n,k) for the triangle at A193722. The triangle at A193723 is then given by w(n,n-k).
T(n,k) = T(n-1,k-1) + 3*T(n-1,k) with T(0,0)=T(1,1)=1 and T(1,0)=2. - Philippe Deléham, Oct 05 2011
From Philippe Deléham, Nov 14 2011: (Start)
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A011782(n), A025192(n), A002001(n), A005054(n), A052934(n), A055272(n), A055274(n), A055275(n), A052268(n), A055276(n), A196731(n) for x=-2,-1,0,1,2,3,4,5,6,7,8,9 respectively.
T(n,k) = Sum_{j>=0} T(n-1-j,k-1)*3^j.
G.f.: (1-x)/(1-(3+y)*x). (End)

A083425 a(n) = (5*5^n + (-1)^n)/6.

Original entry on oeis.org

1, 4, 21, 104, 521, 2604, 13021, 65104, 325521, 1627604, 8138021, 40690104, 203450521, 1017252604, 5086263021, 25431315104, 127156575521, 635782877604, 3178914388021, 15894571940104, 79472859700521, 397364298502604, 1986821492513021, 9934107462565104
Offset: 0

Author

Paul Barry, Apr 30 2003

Keywords

Comments

Binomial transform of A083424. Inverse binomial transform of A052934.
Primes occur at indices n = 4, 66, 100, 102, 228, 346, ..., see A138647. - R. J. Mathar, Jan 19 2011
Sum_{i=0..m} (-1)^(m+i)*5^i, for m >= 0, gives all terms of the sequence. - Bruno Berselli, Aug 28 2013

Programs

  • GAP
    List([0..25],n->(5*5^n+(-1)^n)/6); # Muniru A Asiru, Sep 21 2018
  • Magma
    [n le 2 select n^2 else 4*Self(n-1)+5*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Jun 23 2012
    
  • Maple
    seq(coeff(series(factorial(n)*(5*exp(5*x)+exp(-x))/6,x,n+1), x, n), n = 0 .. 25); # Muniru A Asiru, Sep 21 2018
  • Mathematica
    LinearRecurrence[{4,5},{1,4},40] (* Vincenzo Librandi, Jun 23 2012 *)
  • PARI
    a(n)=(5*5^n+(-1)^n)/6 \\ Charles R Greathouse IV, Oct 07 2015
    

Formula

a(n) = (5*5^n + (-1)^n)/6.
G.f.: 1/((1+x)*(1-5x)).
E.g.f.: (5*exp(5x) + exp(-x))/6.
a(n) = Sum_{k=0..n} C(n-k,k)*4^(n-2k)*5^k. - Paul Barry, Jul 29 2004
a(n) = A015531(n+1). - R. J. Mathar, Sep 17 2008
a(n) = 4*a(n-1) + 5*a(n-2). - Vincenzo Librandi, Jun 23 2012

A085388 First differences of n^k.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 2, 0, 1, 3, 6, 4, 0, 1, 4, 12, 18, 8, 0, 1, 5, 20, 48, 54, 16, 0, 1, 6, 30, 100, 192, 162, 32, 0, 1, 7, 42, 180, 500, 768, 486, 64, 0, 1, 8, 56, 294, 1080, 2500, 3072, 1458, 128, 0, 1, 9, 72, 448, 2058, 6480, 12500, 12288, 4374, 256, 0, 1, 10, 90, 648
Offset: 1

Author

Paul Barry, Jun 30 2003

Keywords

Comments

T(n,k) is the number of k-digit numbers in base n; n,k >= 2. - Mohammed Yaseen, Nov 11 2022

Examples

			Rows begin
  1,   0,   0,   0,   0, ...
  1,   1,   2,   4,   8, ...
  1,   2,   6,  18,  54, ...
  1,   3,  12,  48, 192, ...
  1,   4,  20, 100, 500, ...
		

Crossrefs

Diagonals include A053506, A085389, A085390.
Row-wise binomial transform is A083064.

Formula

T(n,k) = (n-1)*n^(k-1) + 0^k/n. - Corrected by Mohammed Yaseen, Nov 11 2022
T(n,0) = 1; T(n,k) = n^k - n^(k-1) for k >= 1. - Mohammed Yaseen, Nov 11 2022

Extensions

Offset corrected by Mohammed Yaseen, Nov 11 2022

A170842 G.f.: Product_{k>=1} (1 + 2x^(2^k-1) + 3x^(2^k)).

Original entry on oeis.org

1, 2, 3, 2, 7, 12, 9, 2, 7, 12, 13, 20, 45, 54, 27, 2, 7, 12, 13, 20, 45, 54, 31, 20, 45, 62, 79, 150, 243, 216, 81, 2, 7, 12, 13, 20, 45, 54, 31, 20, 45, 62, 79, 150, 243, 216, 85, 20, 45, 62, 79, 150, 243, 224, 133, 150, 259, 344, 537, 936, 1161, 810, 243, 2, 7, 12, 13, 20, 45
Offset: 0

Author

N. J. A. Sloane, Jan 02 2010

Keywords

Comments

From Omar E. Pol, Apr 10 2021: (Start)
It appears that this is also an irregular triangle read by rows (see the example).
It appears that right border gives A000244.
It appears that row sums give A052934. (End)

Examples

			From _Omar E. Pol_, Apr 10 2021: (Start)
Written as an irregular triangle in which row lengths are A000079 the sequence begins:
1;
2, 3;
2, 7, 12, 9;
2, 7, 12, 13, 20, 45, 54, 27;
2, 7, 12, 13, 20, 45, 54, 31, 20, 45, 62, 79, 150, 243, 216, 81;
2, 7, 12, 13, 20, 45, 54, 31, 20, 45, 62, 79, 150, 243, 216, 85, 20, 45, 62, ...
(End)
		

Crossrefs

Programs

  • Mathematica
    CoefficientList[Series[Product[1+2x^(2^k-1)+3x^2^k,{k,10}],{x,0,70}],x] (* Harvey P. Dale, Apr 09 2021 *)
  • PARI
    D_x(N) = {my( x='x+O('x^N));Vec(prod(k=1,logint(N,2)+1,(1+2*x^(2^k-1)+3*x^(2^k))))}
    D_x((2^6)+1) \\ John Tyler Rascoe, Aug 16 2024

A178681 a(n) = 6^n + 6.

Original entry on oeis.org

7, 12, 42, 222, 1302, 7782, 46662, 279942, 1679622, 10077702, 60466182, 362797062, 2176782342, 13060694022, 78364164102, 470184984582, 2821109907462, 16926659444742, 101559956668422, 609359740010502
Offset: 0

Author

Vincenzo Librandi, Dec 25 2010

Keywords

Crossrefs

Cf. A000400, A052934 (first differences).

Programs

  • GAP
    List([0..25], n -> 6^n + 6); # G. C. Greubel, Jan 26 2019
  • Magma
    [ 6^n+6: n in [0..25] ];
    
  • Mathematica
    LinearRecurrence[{7,-6},{7,12},41] (* or *) 6^Range[0,40]+6 (* Harvey P. Dale, Aug 11 2011 *)
  • PARI
    for(n=0,25,print1(6^n+6,",")) \\ Edward Jiang, Nov 22 2013
    
  • Sage
    [6^n +6 for n in range(25)] # G. C. Greubel, Jan 26 2019
    

Formula

a(n) = 6*(a(n-1)-5), n > 0.
a(n) = 7*a(n-1) - 6*a(n-2).
a(n) = 6*A062394(n-1), n > 0.
G.f.: (7-37*x)/((1-x)*(1-6*x)). - Klaus Brockhaus, Dec 27 2010
a(n) = A000400(n) + 6. - Michel Marcus, Nov 23 2013
E.g.f.: exp(6*x) + 6*exp(x). - G. C. Greubel, Jan 26 2019
Showing 1-10 of 12 results. Next