A258409 -id:A258409 - cp's OEIS frontend

A084190 Least common multiple of {d-1: d > 1 and d divides n}.

1, 1, 2, 3, 4, 10, 6, 21, 8, 36, 10, 330, 12, 78, 28, 105, 16, 680, 18, 684, 60, 210, 22, 53130, 24, 300, 104, 702, 28, 36540, 30, 3255, 160, 528, 204, 157080, 36, 666, 228, 62244, 40, 31980, 42, 9030, 616, 990, 46, 2497110, 48, 3528, 400, 5100, 52, 468520

Offset: 1

Reinhard Zumkeller, May 18 2003

nonn

Considering the set of divisors > 1 of n reduced by 1, a(n) is the smallest number whose divisors contain this set;
a(n) < n iff n=p^k, p prime and 1 <= k <= 2: a(A001248(n)) < A001248(n), a(A000430(n)) < A000430(n), a(A080257(n))> A080257(n);
a(n) is odd iff n=2^k.

			n=35: divisors > 1 of 35 = {5,7,35}, a(35) = lcm(4,6,34) = 204;
n=37: divisors > 1 of 37 = {37}, a(37) = lcm(36) = 36.

Carl R. White, Table of n, a(n) for n = 1..10000

Cf. A084191(n) = a(a(n)), A007955.
Cf. A027750.
Cf. A258409.

a084190 1 = 1
a084190 n = foldl1 lcm $ map (subtract 1) $ tail $ a027750_row' n
-- Reinhard Zumkeller, May 08 2012

Join[{1}, Table[LCM @@ (Rest[Divisors[n]] - 1), {n, 2, 100}]] (* T. D. Noe, Apr 25 2012 *)

a(n)=if(n>2,lcm(apply(k->k-1,vecextract(divisors(n),"2.."))),1) \\ Charles R Greathouse IV, Apr 25 2012

from math import lcm
from sympy import divisors
def A084190(n): return lcm(*(d-1 for d in divisors(n,generator=True) if d > 1)) # Chai Wah Wu, Jun 25 2022

a(45) was erroneously split into 61 and 6; repaired by Carl R. White, Apr 25 2012

A328163 Number of integer partitions of n whose unsigned differences have a different GCD than the GCD of their parts all minus 1.

Original entry on oeis.org

0, 0, 1, 1, 2, 1, 4, 2, 5, 5, 9, 5, 15, 9, 19, 16, 28, 16, 44, 21, 55, 38, 73, 34, 109, 46, 130, 73, 170, 66, 251, 78, 287, 137, 364, 119, 522, 135, 590, 236, 759, 190, 1042, 219, 1175, 425, 1460, 306, 2006, 347, 2277, 671, 2780, 471, 3734, 584, 4197, 1087

Offset: 0

Gus Wiseman, Oct 07 2019

nonn

Zeros are ignored when computing GCD, and the empty set has GCD 0.

			The a(2) = 1 through a(12) = 15 partitions (A = 10, B = 11, C = 12):
  (2)  (3)  (4)   (5)  (6)    (7)   (8)     (9)    (A)      (B)     (C)
            (22)       (33)   (52)  (44)    (63)   (55)     (83)    (66)
                       (42)         (62)    (72)   (64)     (92)    (84)
                       (222)        (422)   (333)  (73)     (722)   (93)
                                    (2222)  (522)  (82)     (5222)  (A2)
                                                   (442)            (444)
                                                   (622)            (552)
                                                   (4222)           (633)
                                                   (22222)          (642)
                                                                    (822)
                                                                    (3333)
                                                                    (4422)
                                                                    (6222)
                                                                    (42222)
                                                                    (222222)

The complement to these partitions is counted by A328164.
The GCD of the divisors of n all minus 1 is A258409(n).
The GCD of the prime indices of n all minus 1 is A328167(n).
Partitions whose parts minus 1 are relatively prime are A328170.
Cf. A000837, A018783, A175342, A279945, A289508, A328168, A328169.

Table[Length[Select[IntegerPartitions[n],GCD@@Differences[#]!=GCD@@(#-1)&]],{n,0,30}]

A060766 Least common multiple of differences between consecutive divisors of n (ordered by size).

Original entry on oeis.org

1, 2, 2, 4, 3, 6, 4, 6, 15, 10, 6, 12, 35, 10, 8, 16, 9, 18, 10, 28, 99, 22, 12, 20, 143, 18, 42, 28, 60, 30, 16, 88, 255, 28, 18, 36, 323, 130, 60, 40, 21, 42, 154, 60, 483, 46, 24, 42, 75, 238, 234, 52, 27, 132, 84, 304, 783, 58, 60, 60, 899, 84, 32, 104, 165, 66, 442

Offset: 2

Labos Elemer, Apr 24 2001

nonn

			For n=98, divisors={1,2,7,14,49,98}; differences={1,5,7,35,49}; a(98) = LCM of differences = 245.

Harvey P. Dale, Table of n, a(n) for n = 2..1000

The GCD version appears to be A258409.
The LCM of the prime indices of n is A290103(n).
The differences between consecutive divisors of n are row n of A193829.
Cf. A000005, A027750, A060680, A060681, A060683, A328023, A328026, A328219.

a[n_ ] := LCM@@(Drop[d=Divisors[n], 1]-Drop[d, -1])
Table[LCM@@Differences[Divisors[n]],{n,2,70}] (* Harvey P. Dale, Oct 08 2012 *)

a(n) = A290103(A328023(n)). - Gus Wiseman, Oct 16 2019

Edited by Dean Hickerson, Jan 22 2002

A328935 Imprimitive Carmichael numbers: Carmichael numbers m such that if m = p_1 * p_2 * ... *p_k is the prime factorization of m then g(m) = gcd(p_1 - 1, ..., p_k - 1) > sqrt(lambda(m)), where lambda is the Carmichael lambda function (A002322).

Original entry on oeis.org

294409, 399001, 488881, 512461, 1152271, 1461241, 3057601, 3828001, 4335241, 6189121, 6733693, 10267951, 14676481, 17098369, 19384289, 23382529, 50201089, 53711113, 56052361, 64377991, 68154001, 79624621, 82929001, 84350561, 96895441, 115039081, 118901521, 133800661

Offset: 1

Amiram Eldar, Oct 31 2019

nonn

Granville and Pomerance separated the Carmichael numbers into two classes, primitive and imprimitive, according to whether g(m) <= sqrt(lambda(n)) or not.
They conjectured that most Carmichael numbers are primitive and most 3-Carmichael numbers (A087788) are imprimitive.
Comment from Jeppe Stig Nielsen, Apr 21 2021: (Start)
In cases n = 1, 3, 5, 7, 8, 10, 14, 15, 19, 20, ..., there exists a primitive Carmichael number in the same "family" (Carmichael numbers that share the ratio (p_1-1):(p_2-1):...:(p_k-1) belong to the same family). However, in the remaining cases, the entire family consists of imprimitive Carmichael numbers.
There can be more than one primitive Carmichael number in a family. For example, both Carmichael numbers 5828853661 and 965507554621 are primitive, and are in the family 1:3:6:70. The first imprimitive Carmichael number in the family 1:3:6:70 is a(1639)=59610715093021. (End)

Amiram Eldar, Table of n, a(n) for n = 1..10000
Andrew Granville and Carl Pomerance, Two contradictory conjectures concerning Carmichael numbers, Mathematics of Computation, Vol. 71, No. 238 (2002), pp. 883-908.

Cf. A002322, A002997, A087788, A258409, A335584.

aQ[n_] := Length[(f = FactorInteger[n])] > 2 && Max[f[[;; , 2]]] == 1 && Divisible[n-1, (lambda = LCM @@ (f[[;; , 1]] - 1))] && GCD @@ (f[[;; , 1]] - 1) > Sqrt[lambda]; Select[Range[4*10^6], aQ]

isA328935(m)=f=factor(m);!(issquarefree(f)&&omega(f)>2)&&return(0);p=f[,1]~;r=apply(x->x-1,p);foreach(r,x,(m-1)%x!=0&&return(0));g=gcd(r);a=r/g;g>lcm(a) \\ p, g, and a are like in Granville & Pomerance, Jeppe Stig Nielsen, Apr 21 2021

Terms m of A002997 such that A258409(m) > sqrt(A002322(m)).

A328164 Number of integer partitions of n whose unsigned differences have the same GCD as the GCD of their parts all minus 1.

Original entry on oeis.org

1, 1, 1, 2, 3, 6, 7, 13, 17, 25, 33, 51, 62, 92, 116, 160, 203, 281, 341, 469, 572, 754, 929, 1221, 1466, 1912, 2306, 2937, 3548, 4499, 5353, 6764, 8062, 10006, 11946, 14764, 17455, 21502, 25425, 30949, 36579, 44393, 52132, 63042, 74000, 88709, 104098, 124448

Offset: 0

Gus Wiseman, Oct 07 2019

nonn

Zeros are ignored when computing GCD, and the empty set has GCD 0.

			The a(1) = 1 through a(8) = 17 partitions:
  (1)  (11)  (21)   (31)    (32)     (51)      (43)       (53)
             (111)  (211)   (41)     (321)     (61)       (71)
                    (1111)  (221)    (411)     (322)      (332)
                            (311)    (2211)    (331)      (431)
                            (2111)   (3111)    (421)      (521)
                            (11111)  (21111)   (511)      (611)
                                     (111111)  (2221)     (3221)
                                               (3211)     (3311)
                                               (4111)     (4211)
                                               (22111)    (5111)
                                               (31111)    (22211)
                                               (211111)   (32111)
                                               (1111111)  (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)

The complement to these partitions is counted by A328163.
The GCD of the divisors of n all minus 1 is A258409(n).
The GCD of the prime indices of n all minus 1 is A328167(n).
Partitions whose parts minus 1 are relatively prime are A328170.
Cf. A000837, A018783, A175342, A279945, A289508, A328168, A328169.

Table[Length[Select[IntegerPartitions[n],GCD@@Differences[#]==GCD@@(#-1)&]],{n,0,30}]

A328456 LCM of the prime indices of 2n + 1, all minus 1; a(0) = 0.

Original entry on oeis.org

0, 1, 2, 3, 1, 4, 5, 2, 6, 7, 3, 8, 2, 1, 9, 10, 4, 6, 11, 5, 12, 13, 2, 14, 3, 6, 15, 4, 7, 16, 17, 3, 10, 18, 8, 19, 20, 2, 12, 21, 1, 22, 6, 9, 23, 15, 10, 14, 24, 4, 25, 26, 6, 27, 28, 11, 29, 8, 5, 6, 4, 12, 2, 30, 13, 31, 21, 2, 32, 33, 14, 20, 18, 3, 34

Offset: 0

Gus Wiseman, Oct 17 2019

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The prime indices of 2 * 17 + 1 = 35, all minus 1, are {2,3}, with LCM 6, so a(17) = 6.

Positions of records (first appearances) are A006005.
The GCD of the prime indices of n, all minus 1, is A328167(n).
The LCM of the prime indices of n, all plus 1, is A328219(n).
Partitions whose parts minus 1 are relatively prime are A328170.
Numbers whose prime indices minus 1 are relatively prime are A328168.
Cf. A056239, A112798, A258409, A289508, A289509, A290103, A318981, A328169, A328451.

Table[If[n==1,0,LCM@@(PrimePi/@First/@FactorInteger[n]-1)],{n,1,100,2}]

cp's OEIS Frontend

A084190 Least common multiple of {d-1: d > 1 and d divides n}.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Python

Extensions

A328163 Number of integer partitions of n whose unsigned differences have a different GCD than the GCD of their parts all minus 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A060766 Least common multiple of differences between consecutive divisors of n (ordered by size).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A328935 Imprimitive Carmichael numbers: Carmichael numbers m such that if m = p_1 * p_2 * ... *p_k is the prime factorization of m then g(m) = gcd(p_1 - 1, ..., p_k - 1) > sqrt(lambda(m)), where lambda is the Carmichael lambda function (A002322).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A328164 Number of integer partitions of n whose unsigned differences have the same GCD as the GCD of their parts all minus 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A328456 LCM of the prime indices of 2n + 1, all minus 1; a(0) = 0.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica