A132325 -id:A132325 - cp's OEIS frontend

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10

Offset: 0

Hieronymus Fischer, Aug 20 2007

If n is written in base-10 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 (1+d(m)d(m-1)d(m-2)...d(2)d(1))*(1+d(m)d(m-1)d(m-2)...d(2))*...*(1+d(m)d(m-1)d(m-2))*(1+d(m)d(m-1))*(1+d(m)).

a(n) = A179051(n) for n < 100. [From Reinhard Zumkeller, Jun 27 2010]

			a(121)=(1+floor(121/10^1))*(1+floor(121/10^2))=13*2=26; a(132)=28 since 132=132(base-10) and so
a(132)=(1+13)*(1+1)(base-10)=14*2=28.

R. J. Mathar, Table of n, a(n) for n = 0..500

Cf. A132038, A132270(p=2), A132271, A132325, A132328(p=3), A132271.

For the product of terms floor(n/p^k) see A098844, A067080, A132027-A132033, A132263, A132264.

A132272 := proc(n)
    a := 1;
    for k from 1 do
        f := floor(n/10^k) ;
        if f <=0 then
            return a;
        else
            a := a*(1+f) ;
        end if;
    end do:
end proc:
seq(A132272(n),n=1..120) ; # R. J. Mathar, Jun 13 2025

Table[Product[1+Floor[n/10^k],{k,n}],{n,0,100}] (* Harvey P. Dale, Jul 20 2024 *)

The following formulas are given for a general parameter p considering the product of terms 1+floor(n/p^k) for 0

Recurrence: a(n)=(1+floor(n/p))*a(floor(n/p)); a(pn)=(1+n)*a(n); a(n*p^m)=product{0<=k

a(k*p^m-j)=k^m*p^(m(m-1)/2), for 0=1. a(p^m)=p^(m(m-1)/2)*product{0<=k

a(n)=A132271(floor(n/p))=A132271(n)/(1+n).

Asymptotic behavior: a(n)=O(n^((log_p(n)-1)/p)); this follows from the inequalities below.

a(n)<=A067080(n)/(n+1)*product{0<=k<=floor(log_p(n)), 1+1/p^k}.

a(n)>=A067080(n)/((n+1)*product{0

a(n)A000217(log_p(n))/(n+1), where c=product{k>0, 1+1/p^k}=2.2244691382741012... (for p=10 see constant A132325).

a(n)>n^((1+log_p(n))/2)/(n+1)=p^A000217(log_p(n))/(n+1).

lim sup n*a(n)/A067080(n)=2*product{k>0, 1+1/p^k}=2.2244691382741012..., for n-->oo (for p=10 see constant A132325).

lim inf n*a(n)/A067080(n)=1/product{k>0, 1-1/p^k}=1/0.8900100999989990000001000..., for n-->oo (for p=10 s. constant A132038).

lim inf a(n)/n^((1+log_p(n))/2)=1, for n-->oo.

lim sup a(n)/n^((1+log_p(n))/2)=2*product{k>0, 1+1/p^k}=2.2244691382741012..., for n-->oo (for p=10 see constant A132325).

lim inf a(n+1)/a(n)=2*product{k>0, 1+1/p^k}=2.2244691382741012... for n-->oo (for p=10 see constant A132325).

A132326 Decimal expansion of Product_{k>=1} (1+1/10^k).

Original entry on oeis.org

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

Offset: 1

Hieronymus Fischer, Aug 20 2007

Half the constant A132325.

			1.1122345691370506321260780670944...

G. C. Greubel, Table of n, a(n) for n = 1..1200
Richard J. McIntosh, Some Asymptotic Formulae for q-Hypergeometric Series, Journal of the London Mathematical Society, Vol. 51, No. 1 (1995), pp. 120-136; alternative link.

Cf. A000593, A067080, A079555, A132019-A132026, A132034-A132038, A132265-A132268, A132271, A132272, A132325.

digits = 105; NProduct[1+1/3^k, {k, 0, Infinity}, NProductFactors -> 100, WorkingPrecision -> digits+3] // N[#, digits+3]& // RealDigits[#, 10, digits]& // First (* Jean-François Alcover, Feb 18 2014 *)
N[QPochhammer[-1/10,1/10]] (* G. C. Greubel, Dec 01 2015 *)

prodinf(k=1, 1+1/10^k) \\ Amiram Eldar, May 20 2023

Equals (1/2)*lim sup_{n->oo} Product_{0<=k<=floor(log_10(n))} (1+1/floor(n/10^k)).
Equals (1/2)*lim sup_{n->oo} A132271(n)/n^((1+log_10(n))/2).
Equals (1/2)*lim sup_{n->oo} A132272(n)/n^((log_10(n)-1)/2).
Equals exp(Sum_{n>0} 10^(-n)*Sum_{k|n} -(-1)^k/k) = exp(Sum_{n>0} A000593(n)/(n*10^n)).
Equals (1/2)*lim sup_{n->oo} A132271(n+1)/A132271(n).
Equals (-1/10; 1/10){infinity}, where (a;q){infinity} is the q-Pochhammer symbol. - G. C. Greubel, Dec 01 2015
Equals (sqrt(2)/2) * exp(log(10)/24 + Pi^2/(12*log(10))) * Product_{k>=1} (1 - exp(-2*(2*k-1)*Pi^2/log(10))) (McIntosh, 1995). - Amiram Eldar, May 20 2023

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

Original entry on oeis.org

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

Offset: 0

Hieronymus Fischer, Aug 20 2007

			0.900832706809715279949862694760...

G. C. Greubel, Table of n, a(n) for n = 0..2000
Richard J. McIntosh, Some Asymptotic Formulae for q-Hypergeometric Series, Journal of the London Mathematical Society, Vol. 51, No. 1 (1995), pp. 120-136; alternative link.

Cf. A000203, A027879, A048651, A100220, A132019-A132026, A132034-A132038, A132265-A132268, A132323, A132324, A132325, A132326.

digits = 105; NProduct[1-1/11^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/11, 1/11], 200] (* G. C. Greubel, Dec 20 2015 *)

prodinf(x=1, 1-1/11^x) \\ Altug Alkan, Dec 20 2015

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

A132271 Product{k>=0, 1+floor(n/10^k)}.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 63, 66, 69, 72, 75, 78, 81, 84, 87, 90, 124, 128, 132, 136, 140, 144, 148, 152, 156, 160, 205, 210, 215, 220, 225, 230, 235, 240, 245, 250, 306, 312, 318, 324, 330, 336, 342, 348, 354, 360, 427

Offset: 0

Hieronymus Fischer, Aug 20 2007

nonn

If n is written in base-10 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 (1+d(m)d(m-1)d(m-2)...d(2)d(1)d(0))*(1+d(m)d(m-1)d(m-2)...d(2)d(1))*(1+d(m)d(m-1)d(m-2)...d(2))*...*(1+d(m)d(m-1)d(m-2))*(1+d(m)d(m-1))*(1+d(m)).

			a(12)=(1+floor(12/10^0))*(1+floor(12/10^1))=13*2=26; a(21)=63 since 21=21(base-10) and so
a(21)=(1+21)*(1+2)(base-10)=22*3=66.

Cf. A132038, A132325, A132269(p=2), A132327(p=3), A132272.

For the product of terms floor(n/p^k) see A098844, A067080, A132027-A132033, A132263, A132264.

f[n_] := Block[{k = 0, p = 1}, While[a = Floor[n/10^k]; a > 0, p *= 1 + a; k++]; p]; Array[f, 61, 0] (* Robert G. Wilson v, May 10 2011 *)
Table[Product[1+Floor[n/10^k],{k,0,n}],{n,0,60}] (* Harvey P. Dale, May 14 2019 *)

The following formulas are given for a general parameter p considering the product of terms 1+floor(n/p^k) for 0<=k<=floor(log_p(n)), where p=10 for this sequence.
Recurrence: a(n)=(1+n)*a(floor(n/p)); a(pn)=(1+pn)*a(n); a(n*p^m)=product{1<=k<=m, 1+n*p^k}*a(n).
a(k*p^m-j)=(k*p^m-j+1)*k^m*p^(m(m-1)/2), for 0=1, a(p^m)=p^(m(m+1)/2)*product{0<=k<=m, 1+1/p^k}, m>=1.
a(n)=A132272(p*n)=(1+n)*A132272(n).
Asymptotic behavior: a(n)=O(n^((1+log_p(n))/2)); this follows from the inequalities below.
a(n)<=A067080(n)*product{0<=k<=floor(log_p(n)), 1+1/p^k}.
a(n)>=A067080(n)/product{1<=k<=floor(log_p(n)), 1-1/p^k}.
a(n)A000217(log_p(n)), where c=product{k>=0, 1+1/p^k}=2.2244691382741012... (for p=10 see constant A132325).
a(n)>n^((1+log_p(n))/2)=p^A000217(log_p(n)).
lim sup a(n)/A067080(n)=2*product{k>0, 1+1/p^k}=2.2244691382741012..., for n-->oo (for p=10 see constant A132325).
lim inf a(n)/A067080(n)=1/product{k>0, 1-1/p^k}=1/0.8900100999989990000001000..., for n-->oo (for p=10 see constant A132038).
lim inf a(n)/n^((1+log_p(n))/2)=1, for n-->oo.
lim sup a(n)/n^((1+log_p(n))/2)=2*product{k>0, 1+1/p^k}=2.2244691382741012..., for n-->oo (for p=10 see constant A132325).
lim inf a(n+1)/a(n)=2*product{k>0, 1+1/p^k}=2.2244691382741012... for n-->oo (for p=10 see constant A132325).

Showing 1-4 of 4 results.

cp's OEIS Frontend

A132272 a(n) = Product_{k>0} (1 + floor(n/10^k)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A132326 Decimal expansion of Product_{k>=1} (1+1/10^k).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A132271 Product{k>=0, 1+floor(n/10^k)}.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula