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.

Previous Showing 11-20 of 25 results. Next

A057953 Number of prime factors of 8^n - 1 (counted with multiplicity).

Original entry on oeis.org

1, 3, 2, 5, 3, 6, 4, 7, 3, 7, 4, 10, 4, 8, 6, 10, 5, 9, 4, 13, 7, 9, 4, 14, 7, 8, 6, 14, 6, 13, 3, 13, 8, 11, 11, 15, 6, 9, 9, 17, 5, 14, 5, 15, 10, 9, 6, 19, 7, 14, 8, 18, 8, 16, 10, 19, 7, 11, 6, 24, 5, 8, 10, 16, 8, 17, 6, 20, 9, 22, 7, 21, 7, 13, 14, 17, 10, 16, 8, 23, 10, 12, 5, 24
Offset: 1

Views

Author

Patrick De Geest, Nov 15 2000

Keywords

Crossrefs

bigomega(b^n-1): A057951 (b=10), A057952 (b=9), this sequence (b=8), A057954 (b=7), A057955 (b=6), A057956 (b=5), A057957 (b=4), A057958 (b=3), A046051 (b=2).

Programs

  • Magma
    f:=func; [f(8^n - 1):n in [1..90]]; // Marius A. Burtea, Feb 02 2020
  • Mathematica
    PrimeOmega/@(8^Range[90]-1) (* Harvey P. Dale, May 24 2018 *)

Formula

Mobius transform of A085033. - T. D. Noe, Jun 19 2003
a(n) = A001222(A024088(n)) = A046051(3*n). - Amiram Eldar, Feb 02 2020

A057955 Number of prime factors of 6^n - 1 (counted with multiplicity).

Original entry on oeis.org

1, 2, 2, 3, 3, 4, 2, 4, 4, 6, 3, 7, 3, 6, 6, 6, 5, 7, 3, 9, 4, 5, 5, 9, 6, 7, 6, 9, 2, 11, 3, 9, 6, 8, 7, 13, 6, 6, 6, 12, 3, 10, 5, 9, 11, 8, 4, 13, 5, 10, 9, 11, 4, 11, 7, 14, 7, 6, 4, 20, 4, 5, 10, 12, 9, 12, 3, 11, 8, 18, 2, 18, 5, 10, 12, 9, 6, 15, 4, 17, 8, 7, 8, 17, 10, 7, 7, 12, 4, 18, 6
Offset: 1

Views

Author

Patrick De Geest, Nov 15 2000

Keywords

Examples

			6^10 - 1 = 60466175 = 5^2 * 7 * 11 * 101 * 311 and a(10) = bigomega(60466175) = 2+1+1+1+1 = 6. - _Bernard Schott_, Feb 02 2020
		

Crossrefs

bigomega(b^n-1): A057951 (b=10), A057952 (b=9), A057953 (b=8), A057954 (b=7), this sequence (b=6), A057956 (b=5), A057957 (b=4), A057958 (b=3), A046051 (b=2).

Programs

Formula

Möbius transform of A085031. - T. D. Noe, Jun 19 2003
a(n) = A001222(A024062(n)). - Amiram Eldar, Feb 02 2020

A057952 Number of prime factors of 9^n - 1 (counted with multiplicity).

Original entry on oeis.org

3, 5, 5, 7, 6, 8, 5, 10, 8, 10, 7, 11, 5, 9, 11, 12, 8, 12, 7, 13, 11, 11, 6, 17, 10, 9, 13, 13, 9, 17, 8, 14, 12, 12, 11, 16, 8, 11, 15, 18, 8, 18, 6, 16, 19, 10, 10, 21, 12, 18, 15, 13, 8, 18, 15, 19, 15, 13, 7, 24, 7, 13, 19, 16, 12, 18, 8, 17, 15, 20, 9, 24, 9, 13, 22, 17, 13, 22
Offset: 1

Views

Author

Patrick De Geest, Nov 15 2000

Keywords

Crossrefs

bigomega(b^n-1): A046051 (b=2), A057958 (b=3), A057957 (b=4), A057956 (b=5), A057955 (b=6), A057954 (b=7), A057953 (b=8), this sequence (b=9), A057951 (b=10), A366682 (b=11), A366708 (b=12).

Programs

  • Mathematica
    PrimeOmega[Table[9^n - 1, {n, 1, 30}]] (* Amiram Eldar, Feb 02 2020 *)

Formula

Mobius transform of A085034. - T. D. Noe, Jun 19 2003
a(n) = A001222(A024101(n)) = A057958(2*n). - Amiram Eldar, Feb 02 2020
a(n) = A057941(n) + A057958(n). - Max Alekseyev, Jan 07 2024

A057956 Number of prime factors of 5^n - 1 (counted with multiplicity).

Original entry on oeis.org

2, 4, 3, 6, 4, 7, 3, 8, 5, 7, 3, 10, 3, 7, 7, 11, 4, 11, 5, 11, 6, 8, 4, 13, 8, 7, 9, 10, 5, 14, 4, 14, 6, 8, 9, 16, 5, 10, 6, 15, 4, 16, 4, 12, 12, 8, 3, 17, 4, 13, 8, 12, 5, 19, 10, 13, 7, 9, 4, 21, 5, 9, 11, 18, 8, 15, 7, 14, 9, 16, 4, 22, 5, 10, 16, 14, 7, 14, 5, 20, 11, 10, 5, 22, 9, 10
Offset: 1

Views

Author

Patrick De Geest, Nov 15 2000

Keywords

Crossrefs

bigomega(b^n-1): A057951 (b=10), A057952 (b=9), A057953 (b=8), A057954 (b=7), A057955 (b=6), this sequence (b=5), A057957 (b=4), A057958 (b=3), A046051 (b=2).

Programs

  • Mathematica
    PrimeOmega[5^Range[90]-1] (* Harvey P. Dale, Dec 16 2017 *)

Formula

Mobius transform of A085030. - T. D. Noe, Jun 19 2003
a(n) = A001222(A024049(n)). - Amiram Eldar, Feb 01 2020

A070528 Number of divisors of 10^n-1 (999...999 with n digits).

Original entry on oeis.org

3, 6, 8, 12, 12, 64, 12, 48, 20, 48, 12, 256, 24, 48, 128, 192, 12, 640, 6, 384, 256, 288, 6, 2048, 96, 192, 96, 768, 96, 16384, 24, 6144, 128, 192, 384, 5120, 24, 24, 128, 6144, 48, 49152, 48, 4608, 1280, 192, 12, 16384, 48, 3072, 512, 1536, 48, 12288, 768
Offset: 1

Views

Author

Henry Bottomley, May 02 2002

Keywords

Examples

			a(7)=12 since the divisors of 9999999 are 1, 3, 9, 239, 717, 2151, 4649, 13947, 41841, 1111111, 3333333, 9999999.
		

Crossrefs

Programs

  • Mathematica
    DivisorSigma[0,#]&/@(10^Range[60]-1) (* Harvey P. Dale, Jan 14 2011 *)
    Table[DivisorSigma[0, 10^n - 1], {n, 60}] (* T. D. Noe, Aug 18 2011 *)
  • PARI
    a(n) = numdiv(10^n - 1); \\ Michel Marcus, Sep 08 2015

Formula

a(n) = A000005(A002283(n)).
a(n) = Sum_{d|n} A059892(d).
a(n) = A070529(n)*(A007949(n)+3)/(A007949(n)+1).

Extensions

Terms to a(280) in b-file from Hans Havermann, Aug 19 2011
a(281)-a(322) in b-file from Ray Chandler, Apr 22 2017
a(323)-a(352) in b-file from Max Alekseyev, May 04 2022

A085035 Number of prime factors of cyclotomic(n,10), which is A019328(n), the value of the n-th cyclotomic polynomial evaluated at x=10.

Original entry on oeis.org

2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, 3, 1, 2, 2, 2, 2, 1, 2, 3, 4, 1, 1, 3, 2, 3, 3, 5, 3, 3, 5, 2, 3, 3, 1, 3, 1, 1, 2, 4, 4, 4, 3, 2, 4, 2, 1, 2, 3, 4, 2, 4, 2, 4, 2, 3, 2, 2, 3, 7, 1, 5, 4, 2, 2, 3, 3, 3, 2, 2, 3, 3, 3, 3, 2, 4, 5, 6, 2, 6, 2, 3, 2, 3, 3, 3
Offset: 1

Views

Author

T. D. Noe, Jun 19 2003

Keywords

Comments

The Mobius transform of this sequence yields A057951, number of prime factors of 10^n-1.

References

Crossrefs

omega(Phi(n,x)): A085021 (x=2), A085028 (x=3), A085029 (x=4), A085030 (x=5), A085031 (x=6), A085032 (x=7), A085033 (x=8), A085034 (x=9), this sequence (x=10).

Programs

  • Mathematica
    Table[Plus@@Transpose[FactorInteger[Cyclotomic[n, 10]]][[2]], {n, 1, 100}]

Formula

a(n) = A001222(A019328(n)). - Ray Chandler, May 10 2017

A003060 Smallest number with reciprocal of period length n in decimal (base 10).

Original entry on oeis.org

1, 3, 11, 27, 101, 41, 7, 239, 73, 81, 451, 21649, 707, 53, 2629, 31, 17, 2071723, 19, 1111111111111111111, 3541, 43, 23, 11111111111111111111111, 511, 21401, 583, 243, 29, 3191, 211, 2791, 353, 67, 103, 71, 1919, 2028119, 909090909090909091
Offset: 0

Views

Author

Keywords

Comments

For n > 0, a(n) is the least divisor d > 1 of 10^n - 1 such that the multiplicative order of 10 mod d is n. For prime n > 3, a(n) = A007138(n). - T. D. Noe, Aug 07 2007
For n > 1, a(n) is the smallest positive d such that d divides 10^n - 1 and does not divide any of 10^k - 1 for 0 < k < n. - Maciej Ireneusz Wilczynski, Sep 06 2012, corrected by M. F. Hasler, Jun 28 2022. (For n = 1, d = 1 divides 10^n - 1 and does not divide any 10^k - 1 with 0 < k < n, but a(1) = 3 > 1.)

References

  • J. Brillhart et al., Factorizations of b^n +- 1. Contemporary Mathematics, Vol. 22, Amer. Math. Soc., Providence, RI, 2nd edition, 1985; and later supplements.
  • "Cycle lengths of reciprocals", Popular Computing (Calabasas, CA), Vol. 1 (No. 4, Jul 1973), pp. 12-14.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Smallest primitive divisors of b^n-1: A212953 (b=2), A218356 (b=3), A218357 (b=5), A218358 (b=7), this sequence (b=10), A218359 (b=11), A218360 (b=13), A218361 (b=17), A218362 (b=19), A218363 (b=23), A218364 (b=29).

Programs

  • Mathematica
    a[n_] := First[ Select[ Divisors[10^n - 1], MultiplicativeOrder[10, #] == n &, 1]]; a[0] = 1; a[1] = 3; Table[a[n], {n, 0, 38}] (* Jean-François Alcover, Jul 13 2012, after T. D. Noe *)
  • PARI
    apply( {A003060(n)=!fordiv(10^n-!!n, d, d>1 && znorder(Mod(10,d))==n && return(d))}, [0..50]) \\ M. F. Hasler, Jun 28 2022

Extensions

Comment corrected by T. D. Noe, Apr 15 2010
More terms from T. D. Noe, Apr 15 2010
b-file truncated at uncertain term a(439) by Max Alekseyev, Apr 30 2022

A173898 Decimal expansion of sum of the reciprocals of the Mersenne primes.

Original entry on oeis.org

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

Views

Author

Jonathan Vos Post, Mar 01 2010

Keywords

Comments

We know this a priori to be strictly less than the Erdős-Borwein constant (A065442), which Erdős (1948) showed to be irrational. This new constant would also seem to be irrational.

Examples

			Decimal expansion of (1/3) + (1/7) + (1/31) + (1/127) + (1/8191) + (1/131071) + (1/524287) + ... = .5164541789407885653304873429715228588159685534154197.
This has continued fraction expansion 0 + 1/(1 + 1/(1 + 1/(14 + 1/(1 + ...)))) (see A209601).
		

Crossrefs

Cf. A209601, A000668, A065442 (decimal expansion of Erdos-Borwein constant), A000043, A001348, A046051, A057951-A057958, A034876, A124477, A135659, A019279, A061652, A000225.

Programs

  • Maple
    Digits := 120 ; L := [ 2, 3, 5, 7, 13, 17, 19, 31, 61, 89, 107, 127, 521, 607, 1279, 2203, 2281, 3217, 4253, 4423, 9689, 9941, 11213, 19937, 21701, 23209, 44497, 86243, 110503, 132049, 216091, 756839, 859433, 1257787, 1398269, 2976221, 3021377, 6972593, 13466917 ] ;
    x := 0 ; for i from 1 to 30 do x := x+1.0/(2^op(i,L)-1 ); end do ;
  • Mathematica
    RealDigits[Sum[1/(2^p - 1), {p, MersennePrimeExponent[Range[14]]}], 10, 100][[1]] (* Amiram Eldar, May 24 2020 *)
  • PARI
    isM(p)=my(m=Mod(4,2^p-1));for(i=1,p-2,m=m^2-2);!m
    s=1/3;forprime(p=3,default(realprecision)*log(10)\log(2), if(isM(p), s+=1./(2^p-1)));s \\ Charles R Greathouse IV, Mar 22 2012

Formula

Sum_{i>=1} 1/A000668(i).

Extensions

Entry revised by N. J. A. Sloane, Mar 10 2012

A001270 Table of prime factors of 10^n - 1 (with multiplicity).

Original entry on oeis.org

3, 3, 3, 3, 11, 3, 3, 3, 37, 3, 3, 11, 101, 3, 3, 41, 271, 3, 3, 3, 7, 11, 13, 37, 3, 3, 239, 4649, 3, 3, 11, 73, 101, 137, 3, 3, 3, 3, 37, 333667, 3, 3, 11, 41, 271, 9091, 3, 3, 21649, 513239, 3, 3, 3, 7, 11, 13, 37, 101, 9901, 3, 3, 53, 79, 265371653
Offset: 1

Views

Author

Keywords

Comments

The length of the n-th row is A057951(n).

References

  • J. Brillhart et al., Factorizations of b^n +- 1. Contemporary Mathematics, Vol. 22, Amer. Math. Soc., Providence, RI, 2nd edition, 1985; and later supplements.

Crossrefs

Cf. A002283.

Programs

  • Mathematica
    Table[f = FactorInteger[10^n - 1]; Flatten[Table[Table[i[[1]], {i[[2]]}], {i, f}]], {n, 13}] (* T. D. Noe, Jun 27 2012 *)

Extensions

Erroneous b-file replaced by Ray Chandler, Apr 26 2017
b-file corrected and extended with rows 323..352 by Max Alekseyev, May 23 2023

A102146 a(n) = sigma(10^n - 1), where sigma(n) is the sum of positive divisors of n.

Original entry on oeis.org

13, 156, 1520, 15912, 148512, 2042880, 14508000, 162493344, 1534205464, 16203253248, 144451398000, 2063316971520, 14903272088640, 158269280832000, 1614847741624320, 17205180696931968, 144444514193267496
Offset: 1

Views

Author

Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Feb 14 2005

Keywords

Crossrefs

Programs

  • Mathematica
    DivisorSigma[1,10^Range[20]-1] (* Harvey P. Dale, Jan 05 2012 *)
  • PARI
    a(n) = sigma(10^n-1); \\ Michel Marcus, Apr 22 2017

Formula

a(n) = A000203(A002283(n)). - Ray Chandler, Apr 22 2017
Previous Showing 11-20 of 25 results. Next