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-4 of 4 results.

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

Original entry on oeis.org

2, 16, 128, 1024, 8192, 65536, 524288, 4194304, 33554432, 268435456, 2147483648, 17179869184, 137438953472, 1099511627776, 8796093022208, 70368744177664, 562949953421312, 4503599627370496, 36028797018963968, 288230376151711744, 2305843009213693952, 18446744073709551616
Offset: 0

Views

Author

Keywords

Comments

1/2 + 1/16 + 1/128 + 1/1024 + ... = 4/7. - Gary W. Adamson, Aug 29 2008

Crossrefs

Programs

Formula

From Philippe Deléham, Nov 23 2008: (Start)
a(n) = 8*a(n-1), n > 0; a(0)=2.
G.f.: 2/(1-8x). (End)
a(n) = A157176(A016921(n)) = A157176(A016933(n)). - Reinhard Zumkeller, Feb 24 2009
From Amiram Eldar, May 08 2023: (Start)
Sum_{n>=0} (-1)^n/a(n) = 4/9.
Product_{n>=0} (1 - 1/a(n)) = A132024. (End)
E.g.f.: 2*exp(8*x). - Stefano Spezia, May 29 2024

A132033 Product{0<=k<=floor(log_9(n)), floor(n/9^k)}, n>=1.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 36, 38, 40, 42, 44, 46, 48, 50, 52, 81, 84, 87, 90, 93, 96, 99, 102, 105, 144, 148, 152, 156, 160, 164, 168, 172, 176, 225, 230, 235, 240, 245, 250, 255, 260, 265, 324, 330, 336, 342, 348, 354, 360, 366, 372
Offset: 1

Views

Author

Hieronymus Fischer, Aug 20 2007

Keywords

Comments

If n is written in base-9 as n=d(m)d(m-1)d(m-2)...d(2)d(1)d(0) (where d(k) is the digit at position k) then a(n) is also the product d(m)d(m-1)d(m-2)...d(2)d(1)d(0)*d(m)d(m-1)d(m-2)...d(2)d(1)*d(m)d(m-1)d(m-2)...d(2)*...*d(m)d(m-1)d(m-2)*d(m)d(m-1)*d(m).

Examples

			a(85)=floor(85/9^0)*floor(85/9^1)*floor(85/9^2)=85*9*1=765; a(88)=792 since 88=107(base-9) and so a(88)=107*10*1(base-9)=88*9*1=792.
		

Crossrefs

For formulas regarding a general parameter p (i.e. terms floor(n/p^k)) see A132264.
For the product of terms floor(n/p^k) for p=2 to p=12 see A098844(p=2), A132027(p=3)-A132032(p=8), A067080(p=10), A132263(p=11), A132264(p=12).
For the products of terms 1+floor(n/p^k) see A132269-A132272, A132327, A132328.

Programs

  • Mathematica
    Table[Product[Floor[n/9^k],{k,0,Floor[Log[9,n]]}],{n,62}] (* James C. McMahon, Mar 03 2025 *)

Formula

Recurrence: a(n)=n*a(floor(n/9)); a(n*9^m)=n^m*9^(m(m+1)/2)*a(n).
a(k*9^m)=k^(m+1)*9^(m(m+1)/2), for 0
Asymptotic behavior: a(n)=O(n^((1+log_9(n))/2)); this follows from the inequalities below.
a(n)<=b(n), where b(n)=n^(1+floor(log_9(n)))/9^((1+floor(log_9(n)))*floor(log_9(n))/2); equality holds for n=k*9^m, 0=0. b(n) can also be written n^(1+floor(log_9(n)))/9^A000217(floor(log_9(n))).
Also: a(n)<=3^(1/4)*n^((1+log_9(n))/2)=1.316074013...*9^A000217(log_9(n)), equality holds for n=3*9^m, m>=0.
a(n)>c*b(n), where c=0.4689451783670236932832800... (see constant A132024).
Also: a(n)>c*2^((1-log_9(2))/2)*n^((1+log_9(n))/2)=0.4689451783670...*1.267747616...*9^A000217(log_9(n)).
lim inf a(n)/b(n)=0.4689451783670236932832800..., for n-->oo.
lim sup a(n)/b(n)=1, for n-->oo.
lim inf a(n)/n^((1+log_9(n))/2)=0.4689451783670236932832800...*sqrt(2)/2^log_9(sqrt(2)), for n-->oo.
lim sup a(n)/n^((1+log_9(n))/2)=3^(1/4)=1.316074013..., for n-->oo.
lim inf a(n)/a(n+1)=0.4689451783670236932832800... for n-->oo (see constant A132025).

A132036 Decimal expansion of Product_{k>0} (1 - 1/8^k).

Original entry on oeis.org

8, 5, 9, 4, 0, 5, 9, 9, 4, 4, 0, 0, 7, 0, 2, 8, 6, 6, 2, 0, 0, 7, 5, 8, 5, 8, 0, 0, 6, 4, 4, 1, 8, 8, 9, 4, 9, 0, 9, 4, 8, 4, 9, 7, 9, 5, 8, 8, 0, 4, 0, 9, 1, 7, 7, 4, 2, 4, 6, 9, 8, 8, 5, 8, 3, 1, 0, 0, 1, 3, 2, 3, 0, 2, 2, 9, 0, 2, 3, 9, 6, 5, 5, 2, 3, 6, 8, 9, 6, 5, 3, 7, 4, 9, 8, 3, 5, 3, 1, 4, 1, 3, 9
Offset: 0

Author

Hieronymus Fischer, Aug 14 2007

Keywords

Examples

			0.8594059944007028662007585800...
		

Programs

  • Mathematica
    digits = 103; NProduct[1-1/8^k, {k, 1, Infinity}, NProductFactors -> 100, WorkingPrecision -> digits+3] // N[#, digits+3]& // RealDigits[#, 10, digits]& // First (* Jean-François Alcover, Feb 18 2014 *)
    N[QPochhammer[1/8,1/8]] (* G. C. Greubel, Nov 26 2015 *)
  • PARI
    prodinf(x=1, 1-(1/8)^x) \\ Altug Alkan, Dec 01 2015

Formula

Equals exp(-Sum_{n>0} sigma_1(n)/n*(1/8)^n) where sigma_1() is A000203().
Equals (1/8; 1/8){infinity}, where (a;q){infinity} is the q-Pochhammer symbol. - G. C. Greubel, Nov 26 2015
From Amiram Eldar, May 09 2023: (Start)
Equals sqrt(2*Pi/(3*log(2))) * exp(log(2)/8 - Pi^2/(18*log(2))) * Product_{k>=1} (1 - exp(-4*k*Pi^2/(3*log(2)))) (McIntosh, 1995).
Equals Sum_{n>=0} (-1)^n/A027876(n). (End)

A132032 Product{0<=k<=floor(log_8(n)), floor(n/8^k)}, n>=1.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 32, 34, 36, 38, 40, 42, 44, 46, 72, 75, 78, 81, 84, 87, 90, 93, 128, 132, 136, 140, 144, 148, 152, 156, 200, 205, 210, 215, 220, 225, 230, 235, 288, 294, 300, 306, 312, 318, 324, 330, 392, 399, 406, 413, 420, 427, 434
Offset: 1

Author

Hieronymus Fischer, Aug 20 2007

Keywords

Comments

If n is written in base-8 as n=d(m)d(m-1)d(m-2)...d(2)d(1)d(0) (where d(k) is the digit at position k) then a(n) is also the product d(m)d(m-1)d(m-2)...d(2)d(1)d(0)*d(m)d(m-1)d(m-2)...d(2)d(1)*d(m)d(m-1)d(m-2)...d(2)*...*d(m)d(m-1)d(m-2)*d(m)d(m-1)*d(m).

Examples

			a(70)=floor(70/8^0)*floor(70/8^1)*floor(70/8^2)=70*8*1=560;
For n=75, 75=113(base-8) and so a(75)=113*11*1(base-8)=75*9*1=675.
		

Crossrefs

For formulas regarding a general parameter p (i.e. terms floor(n/p^k)) see A132264.
For the product of terms floor(n/p^k) for p=2 to p=12 see A098844(p=2), A132027(p=3)-A132033(p=9), A067080(p=10), A132263(p=11), A132264(p=12).
For the products of terms 1+floor(n/p^k) see A132269-A132272, A132327, A132328.

Formula

Recurrence: a(n)=n*a(floor(n/8)); a(n*8^m)=n^m*8^(m(m+1)/2)*a(n).
a(k*8^m)=k^(m+1)*8^(m(m+1)/2), for 0
Asymptotic behavior: a(n)=O(n^((1+log_8(n))/2)); this follows from the inequalities below.
a(n)<=b(n), where b(n)=n^(1+floor(log_8(n)))/8^((1+floor(log_8(n)))*floor(log_8(n))/2); equality holds for n=k*8^m, 0=0. b(n) can also be written n^(1+floor(log_8(n)))/8^A000217(floor(log_8(n))).
Also: a(n)<=3^((1-log_8(3))/2)*n^((1+log_8(n))/2) = 1.295758534...*8^A000217(log_8(n)), equality holds for n=3*8^m, m>=0.
a(n)>c*b(n), where c = 0.46456888368647639098... (see constant A132024).
Also: a(n)>c*2^(1/3)*n^((1+log_8(n))/2)=0.4645688836...*1.25992105...*8^A000217(log_8(n)).
lim inf a(n)/b(n)=0.46456888368647639098..., for n-->oo.
lim sup a(n)/b(n)=1, for n-->oo.
lim inf a(n)/n^((1+log_8(n))/2)=0.46456888368647639098...*2^(1/3), for n-->oo.
lim sup a(n)/n^((1+log_8(n))/2)=sqrt(3)/3^log_8(sqrt(3))=1.295758534..., for n-->oo.
lim inf a(n)/a(n+1)=0.46456888368647639098... for n-->oo (see constant A132024).
Showing 1-4 of 4 results.