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.

A164946 The value A104017(n) rescaled with its decremented prime factors as described in A162290.

Original entry on oeis.org

295788, 1003244, 2419212, 20140245, 10178892, 35839470, 24413481, 32157228, 295702416, 95828168, 107785924, 353180006543727, 320682950, 457591752, 909143104, 78888524, 735661013336064, 193098816, 26308112, 215405768, 1125114110156250, 3418986808281250, 236301822947449, 269517889, 287152344, 157098832
Offset: 1

Views

Author

A.K. Devaraj, Sep 02 2009

Keywords

Comments

The entry N = A104017(n) is written as the product N = p*q*r*... of its k distinct prime factors p < q < r < ... . The (k-2)nd power multiplied by the decremented p-1 of the smallest prime factor and divided by the product of the decremented other prime factors defines a(n): a(n) = (N-1)^(k-2)*(p-1)/( (q-1)*(r-1)*...). - R. J. Mathar, Dec 16 2010

Examples

			The 4 factors of the first member of A104017 (11305) are 5, 7, 17 and 19. Hence the first term of the present sequence is (4*11304^2)/(6*16*18) = 295788.
		

Crossrefs

A087788 3-Carmichael numbers: Carmichael numbers equal to the product of 3 primes: k = p*q*r, where p < q < r are primes such that a^(k-1) == 1 (mod k) if a is prime to k.

Original entry on oeis.org

561, 1105, 1729, 2465, 2821, 6601, 8911, 10585, 15841, 29341, 46657, 52633, 115921, 162401, 252601, 294409, 314821, 334153, 399001, 410041, 488881, 512461, 530881, 1024651, 1152271, 1193221, 1461241, 1615681, 1857241, 1909001, 2508013
Offset: 1

Views

Author

Miklos Kristof, Oct 07 2003

Keywords

Comments

It is interesting that most of the numbers have the last digit 1. For example 530881, 3581761, 7207201, etc.
Granville & Pomerance conjecture that there are ~ c x^(1/3)/(log x)^3 terms of this sequence up to x. Heath-Brown proves that, for any e > 0, there are O(x^(7/20 + e)) terms of this sequence up to x. - Charles R Greathouse IV, Nov 19 2012

Examples

			a(6)=6601=7*23*41: 7-1|6601-1, 23-1|6601-1, 41-1|6601-1, i.e., 6|6600, 22|6600, 40|6600.
		

References

  • O. Ore, Number Theory and Its History, McGraw-Hill, 1948, Reprinted by Dover Publications, 1988, Chapter 14.

Crossrefs

Intersection of A002997 and A007304.
Cf. A162290.

Programs

  • PARI
    list(lim)=my(v=List());forprime(p=3,(lim)^(1/3), forprime(q=p+1, sqrt(lim\p),forprime(r=q+1,lim\(p*q),if((q*r-1)%(p-1)||(p*r-1)%(q-1)||(p*q-1)%(r-1),,listput(v,p*q*r)))));vecsort(Vec(v)) \\ Charles R Greathouse IV, Nov 19 2012

Formula

k is composite and squarefree and for p prime, p|k => p-1|k-1. A composite odd number k is a Carmichael number if and only if k is squarefree and p-1 divides k-1 for every prime p dividing k (Korselt, 1899) k = p*q*r, p-1|k-1, q-1|k-1, r-1|k-1.

Extensions

Minor edit to definition by N. J. A. Sloane, Sep 14 2009

A165139 Multiplicative order of 2 in Z/mZ with m=A104017(n).

Original entry on oeis.org

72, 264, 648, 600, 56, 720, 224, 2904, 600, 288, 648, 792, 4560, 180, 840, 792, 360, 1500, 1700, 324, 720, 360, 5152, 900, 576, 828, 4356, 26460, 19800, 144, 972, 700, 21780, 1152, 78408, 7128, 960, 540, 8064, 7968, 139080, 1620, 1296, 71148, 1960, 6624, 2280, 8820, 4680, 144, 495, 19800, 2016, 2592, 4356, 468, 1320, 3204, 2880
Offset: 1

Views

Author

A.K. Devaraj, Sep 05 2009

Keywords

Crossrefs

Extensions

Corrected and extended by M. F. Hasler, Sep 23 2009
Edited by N. J. A. Sloane, Sep 23 2009, following suggestions from M. F. Hasler

A180044 Let the n-th Carmichael number A002997(n) = p1*p2*...*pr, where p1 < p2 < ... < pr are primes. Then a(n) = (p1-1) * (p1*p2*...*pr - 1)^(r-2) / ((p2-1)*...*(pr-1)).

Original entry on oeis.org

7, 23, 48, 22, 47, 45, 45, 21, 44, 163, 2105352, 162, 43, 486266, 3157729, 9859600, 5110605, 161, 6146018, 280, 8225424, 9135075, 1684, 6185169, 1363, 159, 351, 59907600, 950, 1675, 9879408, 1358, 949, 158, 95468562, 4399220, 83722500
Offset: 1

Views

Author

A.K. Devaraj, Aug 08 2010

Keywords

Comments

a(n) is always an integer as proved at the Alekseyev link.
The conjecture referred to in A162290 was generalized as follows: Let k be an r-factor Carmichael number (p_1 < p_2 < ... < p_r). Then (p_1-1)*(k-1)^(r-2)/((p_2-1)*(p_3-1)*...*(p_r-1)) is an integer. This was proved by Max Alekseyev (see link).
Contains A162290 as a subsequence.

Examples

			Since A002997(11) = 41041 = 7*11*13*41, we have a(11) = (6*41040^2) / (10*12*40) = 2105352.
		

Crossrefs

Programs

  • Magma
    [ (d[1]-1)*(n-1)^(r-2) / &*[ d[i]-1: i in [2..r] ]: n in [3..700000 by 2] | not IsPrime(n) and IsSquarefree(n) and forall(t){x: x in d | (n-1) mod (x-1) eq 0} where r is #d where d is PrimeDivisors(n)]; // Klaus Brockhaus, Aug 10 2010
  • Mathematica
    lim = 1000001; CarmichaelQ[n_] := Divisible[n - 1, CarmichaelLambda[n]] && ! PrimeQ[n]; cc = Select[Table[k, {k, 561, lim, 2}], CarmichaelQ]; lg = Length[cc]; a[n_] := (c = cc[[n]]; pp = FactorInteger[c][[All, 1]]; r = Length[pp]; (pp[[1]] - 1)*((Times @@ pp - 1)^(r - 2)/ Times @@ (Drop[pp, 1] - 1))); Table[a[n], {n, 1, lg}] (* Jean-François Alcover, Sep 28 2011 *)

Extensions

Edited and extended by Max Alekseyev and Klaus Brockhaus, Aug 10 2010
Showing 1-4 of 4 results.