A009992 -id:A009992 - cp's OEIS frontend

A000420 Powers of 7: a(n) = 7^n.

1, 7, 49, 343, 2401, 16807, 117649, 823543, 5764801, 40353607, 282475249, 1977326743, 13841287201, 96889010407, 678223072849, 4747561509943, 33232930569601, 232630513987207, 1628413597910449, 11398895185373143, 79792266297612001, 558545864083284007

Offset: 0

N. J. A. Sloane

Same as Pisot sequences E(1, 7), L(1, 7), P(1, 7), T(1, 7). Essentially same as Pisot sequences E(7, 49), L(7, 49), P(7, 49), T(7, 49). See A008776 for definitions of Pisot sequences.
Sum of coefficients of expansion of (1+x+x^2+x^3+x^4+x^5+x^6)^n.
a(n) is number of compositions of natural numbers into n parts < 7.
The compositions of n in which each natural number is colored by one of p different colors are called p-colored compositions of n. For n>=1, a(n) equals the number of 7-colored compositions of n such that no adjacent parts have the same color. - Milan Janjic, Nov 17 2011
Numbers n such that sigma(7n) = 7n + sigma(n). - Jahangeer Kholdi, Nov 23 2013
Number of ways to assign truth values to n ternary disjunctions connected by conjunctions such that the proposition is true. For example, a(2) = 49, since for the proposition '(a v b v c) & (d v e v f)' there are 49 assignments that make the proposition true. - Ori Milstein, Dec 31 2022
Equivalently, the number of length-n words over an alphabet with seven letters. - Joerg Arndt, Jan 01 2023

			a(2)=49 there are 49 compositions of natural numbers into 2 parts < 7.

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..100
P. J. Cameron, Sequences realized by oligomorphic permutation groups, J. Integ. Seqs. Vol. 3 (2000), #00.1.5.
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 272
Tanya Khovanova, Recursive Sequences
Simon Plouffe, Approximations de séries génératrices et quelques conjectures, Dissertation, Université du Québec à Montréal, 1992; arXiv:0911.4975 [math.NT], 2009.
Simon Plouffe, 1031 Generating Functions, Appendix to Thesis, Montreal, 1992
Y. Puri and T. Ward, Arithmetic and growth of periodic orbits, J. Integer Seqs., Vol. 4 (2001), #01.2.1.
Index entries for linear recurrences with constant coefficients, signature (7).

Cf. A000079 (powers of 2), A000244 (powers of 3), A000302 (powers of 4), A000351 (powers of 5), A000400 (powers of 6), A001018 (powers of 8), ..., A001029 (powers of 19), A009964 (powers of 20), ..., A009992 (powers of 48), A087752 (powers of 49).

a000420 = (7 ^)
a000420_list = iterate (* 7) 1  -- Reinhard Zumkeller, Apr 29 2015

[7^n : n in [0..30]]; // Wesley Ivan Hurt, Sep 27 2016

A000420:=-1/(-1+7*z); # Simon Plouffe in his 1992 dissertation. [This is actually the generating function, so convert(series(...),list) would yield the actual sequence. - M. F. Hasler, Apr 19 2015]
A000420 := n -> 7^n; # M. F. Hasler, Apr 19 2015

Table[7^n, {n,0,50}] (* Vladimir Joseph Stephan Orlovsky, Feb 15 2011 *)

makelist(7^n,n,0,20); /* Martin Ettl, Dec 27 2012 */

a(n)=7^n \\ Charles R Greathouse IV, Jul 28 2015

a(n) = 7^n.
a(0) = 1; a(n) = 7*a(n-1).
G.f.: 1/(1-7*x).
E.g.f.: exp(7*x).
4/7 - 5/7^2 + 4/7^3 - 5/7^4 + ... = 23/48. [Jolley, Summation of Series, Dover, 1961]

A001018 Powers of 8: a(n) = 8^n.

Original entry on oeis.org

1, 8, 64, 512, 4096, 32768, 262144, 2097152, 16777216, 134217728, 1073741824, 8589934592, 68719476736, 549755813888, 4398046511104, 35184372088832, 281474976710656, 2251799813685248, 18014398509481984, 144115188075855872, 1152921504606846976, 9223372036854775808, 73786976294838206464, 590295810358705651712, 4722366482869645213696

Offset: 0

N. J. A. Sloane

Same as Pisot sequences E(1, 8), L(1, 8), P(1, 8), T(1, 8). Essentially same as Pisot sequences E(8, 64), L(8, 64), P(8, 64), T(8, 64). See A008776 for definitions of Pisot sequences.
If X_1, X_2, ..., X_n is a partition of the set {1..2n} into blocks of size 2 then, for n>=1, a(n) is equal to the number of functions f : {1..2n} -> {1,2,3} such that for fixed y_1,y_2,...,y_n in {1,2,3} we have f(X_i)<>{y_i}, (i=1..n). - Milan Janjic, May 24 2007
This is the auto-convolution (convolution square) of A059304. - R. J. Mathar, May 25 2009
The compositions of n in which each natural number is colored by one of p different colors are called p-colored compositions of n. For n>=1, a(n) equals the number of 8-colored compositions of n such that no adjacent parts have the same color. - Milan Janjic, Nov 17 2011
a(n) is equal to the determinant of a 3 X 3 matrix with rows 2^(n+2), 2^(n+1), 2^n; 2^(n+3), 2^(n+4), 2(n+3); 2^n, 2^(n+1), 2^(n+2) when it is divided by 144. - J. M. Bergot, May 07 2014
a(n) gives the number of small squares in the n-th iteration of the Sierpinski carpet fractal. Equivalently, the number of vertices in the n-Sierpinski carpet graph. - Allan Bickle, Nov 27 2022

			For n=1, the 1st order Sierpinski carpet graph is an 8-cycle.

K. H. Rosen et al., eds., Handbook of Discrete and Combinatorial Mathematics, CRC Press, 2017; p. 15.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..100
Allan Bickle, Degrees of Menger and Sierpinski Graphs, Congr. Num. 227 (2016) 197-208.
Allan Bickle, MegaMenger Graphs, The College Mathematics Journal, 49 1 (2018) 20-26.
P. J. Cameron, Sequences realized by oligomorphic permutation groups, J. Integ. Seqs. Vol. 3 (2000), #00.1.5.
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 273
Milan Janjic, Enumerative Formulas for Some Functions on Finite Sets
Tanya Khovanova, Recursive Sequences
Caroline Nunn, A Proof of a Generalization of Niven's Theorem Using Algebraic Number Theory, Rose-Hulman Undergraduate Mathematics Journal: Vol. 22, Iss. 2, Article 3 (2021). See table at p. 9.
Y. Puri and T. Ward, Arithmetic and growth of periodic orbits, J. Integer Seqs., Vol. 4 (2001), #01.2.1.
Eric Weisstein's World of Mathematics, Sierpiński Carpet
Index entries for linear recurrences with constant coefficients, signature (8).

Cf. A013730, A103333, A013731, A067417, A083233, A055274.
Cf. A008588, A016969, A157176.
Cf. A000079 (powers of 2), A000244 (powers of 3), A000302 (powers of 4), A000351 (powers of 5), A000400 (powers of 6), A000420 (powers of 7), A001019 (powers of 9), ..., A001029 (powers of 19), A009964 (powers of 20), ..., A009992 (powers of 48), A087752 (powers of 49), A165800 (powers of 50), A159991 (powers of 60).
Cf. A032766 (floor(3*n/2)).
Cf. A271939 (number of edges in the n-Sierpinski carpet graph).

a001018 = (8 ^)
a001018_list = iterate (* 8) 1  -- Reinhard Zumkeller, Apr 29 2015

[8^n : n in [0..30]]; // Wesley Ivan Hurt, Sep 27 2016

seq(8^n, n=0..23); # Nathaniel Johnston, Jun 26 2011
A001018 := n -> 8^n; # M. F. Hasler, Apr 19 2015

Table[8^n, {n,0,50}] (* Vladimir Joseph Stephan Orlovsky, Feb 15 2011 *)

makelist(8^n,n,0,20); /* Martin Ettl, Nov 12 2012 */

a(n)=8^n \\ Charles R Greathouse IV, May 10 2014

print([8**n for n in range(25)]) # Michael S. Branicky, Dec 29 2021

a(n) = 8^n.
a(0) = 1; a(n) = 8*a(n-1) for n > 0.
G.f.: 1/(1-8*x).
E.g.f.: exp(8*x).
Sum_{n>=0} 1/a(n) = 8/7. - Gary W. Adamson, Aug 29 2008
a(n) = A157176(A008588(n)); a(n+1) = A157176(A016969(n)). - Reinhard Zumkeller, Feb 24 2009
From Stefano Spezia, Dec 28 2021: (Start)
a(n) = (-1)^n*(1 + sqrt(-3))^(3*n) (see Nunn, p. 9).
a(n) = (-1)^n*Sum_{k=0..floor(3*n/2)} (-3)^k*binomial(3*n, 2*k) (see Nunn, p. 9). (End)

A009965 Powers of 21.

Original entry on oeis.org

1, 21, 441, 9261, 194481, 4084101, 85766121, 1801088541, 37822859361, 794280046581, 16679880978201, 350277500542221, 7355827511386641, 154472377739119461, 3243919932521508681, 68122318582951682301, 1430568690241985328321, 30041942495081691894741, 630880792396715529789561, 13248496640331026125580781, 278218429446951548637196401

Offset: 0

N. J. A. Sloane

Same as Pisot sequences E(1, 21), L(1, 21), P(1, 21), T(1, 21). Essentially same as Pisot sequences E(21, 441), L(21, 441), P(21, 441), T(21, 441). See A008776 for definitions of Pisot sequences.

The compositions of n in which each natural number is colored by one of p different colors are called p-colored compositions of n. For n>=1, a(n) equals the number of 21-colored compositions of n such that no adjacent parts have the same color. - Milan Janjic, Nov 17 2011

T. D. Noe, Table of n, a(n) for n = 0..100
Tanya Khovanova, Recursive Sequences
Index entries for linear recurrences with constant coefficients, signature (21).

Row 10 of A329332.

[21^n: n in [0..100]] // Vincenzo Librandi, Nov 21 2010

21^Range[0,20] (* or *) NestList[21#&,1,20] (* Harvey P. Dale, Aug 31 2023 *)

A009965(n):=21^n$
makelist(A009965(n),n,0,30); /* Martin Ettl, Nov 07 2012 */

a(n)=21^n \\ Charles R Greathouse IV, Nov 18 2011

[lucas_number1(n,21,0) for n in range(1, 17)] # Zerinvary Lajos, Apr 29 2009

For A009966..A009992 we have g.f.: 1/(1-qx), e.g.f.: exp(qx), with q = 21, 22, ..., 48. - Dan Fux (dan.fux(AT)OpenGaia.com or danfux(AT)OpenGaia.com), Apr 07 2001
a(n) = 21^n; a(n) = 21*a(n-1), n > 0, a(0)=1. - Vincenzo Librandi, Nov 21 2010
G.f.: 22/G(0) where G(k) = 1 - 2*x*(k+1)/(1 - 1/(1 - 2*x*(k+1)/G(k+1) )); (recursively defined continued fraction). - Sergei N. Gladkovskii, Jan 10 2013

A181818 Products of superprimorials (A006939).

Original entry on oeis.org

1, 2, 4, 8, 12, 16, 24, 32, 48, 64, 96, 128, 144, 192, 256, 288, 360, 384, 512, 576, 720, 768, 1024, 1152, 1440, 1536, 1728, 2048, 2304, 2880, 3072, 3456, 4096, 4320, 4608, 5760, 6144, 6912, 8192, 8640, 9216, 11520, 12288, 13824, 16384, 17280, 18432, 20736, 23040, 24576, 27648, 32768

Offset: 1

Matthew Vandermast, Nov 30 2010

nonn

Sorted list of positive integers with a factorization Product p(i)^e(i) such that (e(1) - e(2)) >= (e(2) - e(3)) >= ... >= (e(k-1) - e(k)) >= e(k), with k = A001221(n), and p(k) = A006530(n) = A000040(k), i.e., the prime factors p(1) .. p(k) must be consecutive primes from 2 onward. - Comment clarified by Antti Karttunen, Apr 28 2022
Subsequence of A025487. A025487(n) belongs to this sequence iff A181815(n) is a member of A025487.
If prime signatures are considered as partitions, these are the members of A025487 whose prime signature is conjugate to the prime signature of a member of A182863. - Matthew Vandermast, May 20 2012

			2, 12, and 360 are all superprimorials (i.e., members of A006939). Therefore, 2*2*12*360 = 17280 is included in the sequence.
From _Gus Wiseman_, Aug 12 2020 (Start):
The sequence of factorizations (which are unique) begins:
    1 = empty product
    2 = 2
    4 = 2*2
    8 = 2*2*2
   12 = 12
   16 = 2*2*2*2
   24 = 2*12
   32 = 2*2*2*2*2
   48 = 2*2*12
   64 = 2*2*2*2*2*2
   96 = 2*2*2*12
  128 = 2*2*2*2*2*2*2
  144 = 12*12
  192 = 2*2*2*2*12
  256 = 2*2*2*2*2*2*2*2
(End)

Amiram Eldar, Table of n, a(n) for n = 1..10000

A181817 rearranged in numerical order. Also includes all members of A000079, A001021, A006939, A009968, A009992, A066120, A166475, A167448, A181813, A181814, A181816, A182763.
Subsequence of A025487, A055932, A087980, A130091, A181824.
A001013 is the version for factorials.
A336426 is the complement.
A336496 is the version for superfactorials.
A001055 counts factorizations.
A006939 lists superprimorials or Chernoff numbers.
A317829 counts factorizations of superprimorials.
Cf. A022915, A076954, A304686, A325368, A336419, A336420, A336421, A353518 (characteristic function).

Select[Range[100],PrimePi[First/@If[#==1,{}, FactorInteger[#]]]==Range[ PrimeNu[#]]&&LessEqual@@Differences[ Append[Last/@FactorInteger[#],0]]&] (* Gus Wiseman, Aug 12 2020 *)

firstdiffs0forward(vec) = { my(v=vector(#vec)); for(n=1,#v,v[n] = vec[n]-if(#v==n,0,vec[1+n])); (v); };
A353518(n) = if(1==n,1,my(f=factor(n), len=#f~); if(primepi(f[len,1])!=len, return(0), my(diffs=firstdiffs0forward(f[,2])); for(i=1,#diffs-1,if(diffs[i+1]>diffs[i],return(0))); (1)));
isA181818(n) = A353518(n); \\ Antti Karttunen, Apr 28 2022

A003992 Square array read by upwards antidiagonals: T(n,k) = n^k for n >= 0, k >= 0.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 3, 4, 1, 0, 1, 4, 9, 8, 1, 0, 1, 5, 16, 27, 16, 1, 0, 1, 6, 25, 64, 81, 32, 1, 0, 1, 7, 36, 125, 256, 243, 64, 1, 0, 1, 8, 49, 216, 625, 1024, 729, 128, 1, 0, 1, 9, 64, 343, 1296, 3125, 4096, 2187, 256, 1, 0, 1, 10, 81, 512, 2401, 7776, 15625, 16384, 6561, 512, 1, 0

Offset: 0

Marc LeBrun

If the array is transposed, T(n,k) is the number of oriented rows of n colors using up to k different colors. The formula would be T(n,k) = [n==0] + [n>0]*k^n. The generating function for column k would be 1/(1-k*x). For T(3,2)=8, the rows are AAA, AAB, ABA, ABB, BAA, BAB, BBA, and BBB. - Robert A. Russell, Nov 08 2018

T(n,k) is the number of multichains of length n from {} to [k] in the Boolean lattice B_k. - Geoffrey Critzer, Apr 03 2020

			Rows begin:
[1, 0,  0,   0,    0,     0,      0,      0, ...],
[1, 1,  1,   1,    1,     1,      1,      1, ...],
[1, 2,  4,   8,   16,    32,     64,    128, ...],
[1, 3,  9,  27,   81,   243,    729,   2187, ...],
[1, 4, 16,  64,  256,  1024,   4096,  16384, ...],
[1, 5, 25, 125,  625,  3125,  15625,  78125, ...],
[1, 6, 36, 216, 1296,  7776,  46656, 279936, ...],
[1, 7, 49, 343, 2401, 16807, 117649, 823543, ...], ...

T. D. Noe, Rows n = 0..50 of triangle, flattened

Rows 0-49 are A000007, A000012, A000079, A000244, A000302, A000351, A000400, A000420, A001018, A001019, A011557, A001020, A001021, A001022, A001023, A001024, A001025, A001026, A001027, A001029, A009964-A009992, A087752.
Columns 0-26 are A000012, A001477, A000290, A000578, A000583, A000584, A001014, A001015, A001016, A001017, A008454, A008455, A008456, A010801-A010813, A089081.
Main diagonal is A000312. Other diagonals include A000169, A007778, A000272, A008788. Antidiagonal sums are in A026898.
Cf. A099555.
Transpose is A004248. See A051128, A095884, A009999 for other versions.
Cf. A277504 (unoriented), A293500 (chiral).

[[(n-k)^k: k in [0..n]]: n in [0..10]]; // G. C. Greubel, Nov 08 2018

Table[If[k == 0, 1, (n - k)^k], {n, 0, 11}, {k, 0, n}]//Flatten

T(n,k) = (n-k)^k \\ Charles R Greathouse IV, Feb 07 2017

E.g.f.: Sum T(n,k)*x^n*y^k/k! = 1/(1-x*exp(y)). - Paul D. Hanna, Oct 22 2004

E.g.f.: Sum T(n,k)*x^n/n!*y^k/k! = e^(x*e^y). - Franklin T. Adams-Watters, Jun 23 2006

More terms from David W. Wilson

Edited by Paul D. Hanna, Oct 22 2004

A087752 Powers of 49.

Original entry on oeis.org

1, 49, 2401, 117649, 5764801, 282475249, 13841287201, 678223072849, 33232930569601, 1628413597910449, 79792266297612001, 3909821048582988049, 191581231380566414401, 9387480337647754305649, 459986536544739960976801, 22539340290692258087863249, 1104427674243920646305299201

Offset: 0

Douglas Winston (douglas.winston(AT)srupc.com), Oct 02 2003

Same as Pisot sequences E(1, 49), L(1, 49), P(1, 49), T(1, 49). Essentially same as Pisot sequences E(49, 2401), L(49, 2401), P(49, 2401), T(49, 2401). See A008776 for definitions of Pisot sequences.

The compositions of n in which each natural number is colored by one of p different colors are called p-colored compositions of n. For n >= 1, a(n) equals the number of 49-colored compositions of n such that no adjacent parts have the same color. - Milan Janjic, Nov 17 2011

T. D. Noe, Table of n, a(n) for n = 0..100
Tanya Khovanova, Recursive Sequences.
Index entries for linear recurrences with constant coefficients, signature (49).

Bisection of A000420.
Cf. A001018 (powers of 8), ..., A001029 (powers of 19), A009964 (powers of 20), ..., A009992 (powers of 48).
Cf. A005843, A008776.

[49^n: n in [0..20]]; // Vincenzo Librandi, Nov 21 2010

49^Range[0,20] (* or *) Join[{1},NestList[49#&,49,20]] (* Harvey P. Dale, May 10 2019 *)

makelist(49^n,n,0,20); /* Martin Ettl, Nov 12 2012 */

PARI
```
a(n)=49^n \\ M. F. Hasler, Apr 19 2015
```

G.f.: 1/(1-49*x). - Philippe Deléham, Nov 24 2008
From Vincenzo Librandi, Nov 21 2010: (Start)
a(n) = 49^n.
a(n) = 49*a(n-1), a(0)=1. (End)
From Elmo R. Oliveira, Jul 08 2025: (Start)
E.g.f.: exp(49*x).
a(n) = A000420(A005843(n)). (End)

Edited by M. F. Hasler, Apr 19 2015

A100401 Digital root of 3^n.

Original entry on oeis.org

1, 3, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9

Offset: 0

Cino Hilliard, Dec 30 2004

This sequence also gives the digital root of 12^n, 21^n, 30^n, 39^n, 48^n, 57^n, ... (any k^n where k is congruent to 3 mod 9). - Timothy L. Tiffin, Dec 02 2023

			For n=14, the digits of 3^14 = 4782969 sum to 45, whose digits sum to 9. So, a(14) = 9.

Index entries for linear recurrences with constant coefficients, signature (1).

Cf. A000244, A001021, A007953, A009965, A009974, A009983, A009992, A010888, A100403, A225374.

Table[PowerMod[3, n, 18], {n, 0, 100}] (* Timothy L. Tiffin, Dec 03 2023 *)
PadRight[{1,3}, 100, 9] (* Timothy L. Tiffin, Dec 03 2023 *)

a(n) = if( n<2, [1,3][n+1], 9); \\ Joerg Arndt, Dec 03 2023

[power_mod(3,n,18) for n in range(105)] # Zerinvary Lajos, Nov 25 2009

a(n) = 3^n mod 18. - Zerinvary Lajos, Nov 25 2009
From Timothy L. Tiffin, Nov 30 2023: (Start)
a(n) = 9 for n >= 2.
G.f.: (1+2x+6x^2)/(1-x).
a(n) = A100403(n) for n <> 1. (End)
a(n) = A010888(A000244(n)). - Michel Marcus, Dec 01 2023
a(n) = A010888(A001021(n)) = A010888(A009965(n)) = A010888(A009974(n)) = A010888(A009983(n)) = A010888(A009992(n)) = A010888(A225374(n)). - Timothy L. Tiffin, Dec 02 2023
E.g.f.: 9*exp(x) - 6*x - 8. - Elmo R. Oliveira, Aug 08 2024
a(n) = A007953(3*a(n-1)) = A010888(3*a(n-1)). - Stefano Spezia, Mar 20 2025

A218751 a(n) = (48^n - 1)/47.

Original entry on oeis.org

0, 1, 49, 2353, 112945, 5421361, 260225329, 12490815793, 599559158065, 28778839587121, 1381384300181809, 66306446408726833, 3182709427618887985, 152770052525706623281, 7332962521233917917489, 351982201019228060039473, 16895145648922946881894705, 810966991148301450330945841

Offset: 0

M. F. Hasler, Nov 04 2012

Partial sums of powers of 48 (A009992).

Vincenzo Librandi, Table of n, a(n) for n = 0..600
Index entries related to partial sums.
Index entries for linear recurrences with constant coefficients, signature (49,-48).

Cf. similar sequences of the form (k^n-1)/(k-1): A000225, A003462, A002450, A003463, A003464, A023000, A023001, A002452, A002275, A016123, A016125, A091030, A135519, A135518, A131865, A091045, A218721, A218722, A064108, A218724-A218734, A132469, A218736-A218753, A133853, A094028, A218723.

Cf. A009992.

[n le 2 select n-1 else 49*Self(n-1)-48*Self(n-2): n in [1..20]]; // Vincenzo Librandi, Nov 08 2012

LinearRecurrence[{49, -48}, {0, 1}, 30] (* Vincenzo Librandi, Nov 08 2012 *)

A218751(n):=floor((48^n-1)/47)$ makelist(A218751(n),n,0,30); /* Martin Ettl, Nov 05 2012 */

PARI
```
A218751(n)=48^n\47
```

a(n) = floor(48^n/47).
From Vincenzo Librandi, Nov 08 2012: (Start)
G.f.: x/((1-x)*(1-48*x)).
a(n) = 49*a(n-1) - 48*a(n-2) with a(0)=0, a(1)=1.
a(n) = 48*a(n-1) + 1 with a(0)=0. (End)
E.g.f.: exp(x)*(exp(47*x) - 1)/47. - Elmo R. Oliveira, Aug 29 2024

A165869 Totally multiplicative sequence with a(p) = 48.

Original entry on oeis.org

1, 48, 48, 2304, 48, 2304, 48, 110592, 2304, 2304, 48, 110592, 48, 2304, 2304, 5308416, 48, 110592, 48, 110592, 2304, 2304, 48, 5308416, 2304, 2304, 110592, 110592, 48, 110592, 48, 254803968, 2304, 2304, 2304, 5308416, 48, 2304, 2304

Offset: 1

Jaroslav Krizek, Sep 28 2009

G. C. Greubel, Table of n, a(n) for n = 1..10000

48^PrimeOmega[Range[100]] (* G. C. Greubel, Apr 16 2016 *)

a(n) = 48^bigomega(n); \\ Altug Alkan, Apr 16 2016

a(n) = A009992(A001222(n)) = 48^bigomega(n) = 48^A001222(n).

A384853 Squared length of interior diagonal of n-th (U, V)-crossbox, where U = (1, 0, 1) and V = (0, 1, 0), as in Comments.

Original entry on oeis.org

1, 5, 9, 21, 57, 165, 489, 1461, 4377, 13125, 39369, 118101, 354297, 1062885, 3188649, 9565941, 28697817, 86093445, 258280329, 774840981, 2324522937, 6973568805, 20920706409, 62762119221, 188286357657, 564859072965, 1694577218889, 5083731656661

Offset: 1

Clark Kimberling, Jul 02 2025

nonn

Suppose that U and V are 3-dimensional vectors over the field of real numbers. Define f(1) = U, f(2) = V, f(3) = UxV, where x = cross product, and for n>=2, define f(n) = h(n - 1), g(n) = f(n - 1) + g(n - 1) - h(n - 1), h(n) = f(n) x g(n).
The parallelopiped having edge vectors f(n), g(n), h(n) is the n-th (U,V)-crossbox, with volume |f(n).(g(n) x h(n))|, where . = dot product, and interior diagonal length ||g(n)||. These two sequences, after removal of their first 2 terms, are given for selected U and V by the following table, except for the 3 initial terms:
    U             V         volume   squared diagonal length, ||g(n)||^2
(1, 0, 0)     (0, 1, 0)     A000079           A052548
(1, 0, 0)     (0, 1, 1)     A008776         3*A052919
(1, 0, 0)     (1, 0, 1)     A000351           A178676
(1, 0, 0)     (1, 1, 1)     A167747         5*A204061
(1, 0, 0)     (0, 2, 0)     A005054         4*A199215
(1, 0, 0)     (1, 2, 0)     A013731         8*A199552
(1, 0, 0)     (2, 1, 0)     A011557        10*A000533
(1, 0, 0)     (1, 1, 2)     A067403        18*A135423
(1, 0, 0)     (2, 1, 1)     A334603        11*A199750
(1, 0, 1)     (0, 1, 0)     A008776           this sequence
(1, 1, 0)     (0, 1, 1)     A081341         6*A199318
(1, 1, 0)     (1, 1, 1)     A270369         9*A199559
(1, 2, 3)     (3, 2, 1)   2*A009992   48 + 96*A009992

			Taking U = (1, 0, 1) and V = (0, 1, 0), successive edge vectors are given by
(f(n)) = ( (1, 0, 1), (-1,0,1), (-1,2,-1), (3,0,-3), (3,-6,3), ...)
(g(n)) = ( (0,1,0), (2,1,0), (2,-1,2), (-2,1,4), (-2,7,-2), (10,1,-8), ...)
(h(n)) = ( (-1.0,1), (-1,2,-1), (3,0,-3), (3,-6,3), (-9,0,9),...)
The successive volumes are (2, 6, 18, 54, 162, 486, 1458, 4374, 13122,...).
The lengths of diagonals of the first five crossboxes are 1, sqrt(5), 3, sqrt(21), sqrt(57), so the first five squared lengths are 1, 5, 9, 21, 57.

Index entries for linear recurrences with constant coefficients, signature (4,-3).

Cf. A000079, A052548, A008776.

f[1] = {1, 0, 1}; g[1] = {0, 1, 0}; h[1] = Cross[f[1], g[1]];
f[n_] := f[n] = h[n - 1];
g[n_] := g[n] = f[n - 1] + g[n - 1] - h[n - 1];
h[n_] := h[n] = Cross[f[n], g[n]];
v[n_] := f[n] . Cross[g[n], h[n]] (* signed volume of nth parallelopiped P(n) *)
d[n_] := Norm[g[n]] (* length of interior diagonal of P(n) *)
Column[Table[{f[n], g[n], h[n]}, {n, 1, 16}]]  (* edge vectors of P(n) *)
Table[v[n], {n, 1, 16}]  (* A008776 *)
u = Table[d[n]^2, {n, 1, 30}] (* A384853 *)
Join[{1},Table[1+2*(3^(n-1)+1),{n,40}]] (* or *) LinearRecurrence[{4,-3},{1,5,9},50] (* Harvey P. Dale, Jul 20 2025 *)

a(0) = 1, a(n) = 1 + 2 * (3^(n-1)+1) for n>=1.
a(n) = 4*a(n-1) - 3*a(n-2) for n>=4.
In general, suppose that U = (a,b,c) and V = (s,t,u), and let D = -(a^2 + b^2 + c^2 + s^2 + t^2 + u^2 + 2 (a s + b t + c u)). Then, linear recurrences are given for n>=3 by f(n) = D*f (n - 2), g(n) = g(n - 1) + D*g(n - 2) - D*g(n - 3), h(n) = D*h(n - 2). If w(n) denotes the volume of the n-th (U,V)-crossbox, then w(n) = D*w(n-1) for n>=2.

cp's OEIS Frontend

A000420 Powers of 7: a(n) = 7^n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

Maxima

PARI

Formula

A001018 Powers of 8: a(n) = 8^n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

Maxima

PARI

Python

Formula

A009965 Powers of 21.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

Maxima

PARI

Sage

Formula

A181818 Products of superprimorials (A006939).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A003992 Square array read by upwards antidiagonals: T(n,k) = n^k for n >= 0, k >= 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

Extensions

A087752 Powers of 49.

Views

Author

Keywords

Comments