A071187 -id:A071187 - cp's OEIS frontend

A329613 Numbers k such that A071187(k) <> A329614(k).

324, 1296, 2500, 5625, 9604, 10000, 11664, 20736, 21609, 38416, 50625, 58564, 60025, 82944, 90000, 114244, 131769, 160000, 194481, 234256, 236196, 250000, 257049, 334084, 345744, 360000, 366025, 456976, 521284, 614656, 640000, 714025, 717409, 751689, 810000, 944784, 960400, 1119364, 1172889, 1185921, 1265625, 1327104, 1336336

Offset: 1

Antti Karttunen, Nov 18 2019

nonn

All terms are squares; their square roots are in A329611.

David A. Corneth, Table of n, a(n) for n = 1..15072 (first 661 terms from Antti Karttunen, terms <= 10^14)
David A. Corneth, PARI program

Subsequence of A000290.

Cf. A055932, A071187, A329611, A329614.

A034386(n) = prod(i=1, primepi(n), prime(i));
A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };  \\ From A108951
A071187(n) = if(1==n, n, my(f = factor(numdiv(n))); vecmin(f[, 1]));
A329614(n) = A071187(A108951(n));
k=0; n=0; while(n<2^16, n++; u = n*n; if(A071187(u)!=A329614(u), k++; write("b329613.txt", k, " ", u); print1(u,", ")));

PARI
```
\\ See link
```

A329611 Numbers n for which A071187(n^2) <> A329614(n^2).

Original entry on oeis.org

18, 36, 50, 75, 98, 100, 108, 144, 147, 196, 225, 242, 245, 288, 300, 338, 363, 400, 441, 484, 486, 500, 507, 578, 588, 600, 605, 676, 722, 784, 800, 845, 847, 867, 900, 972, 980, 1058, 1083, 1089, 1125, 1152, 1156, 1176, 1183, 1225, 1350, 1372, 1444, 1445, 1452, 1521, 1568, 1587, 1682, 1764, 1800, 1805, 1859, 1922, 1936, 1944

Offset: 1

Antti Karttunen, Nov 23 2019

nonn

Antti Karttunen, Table of n, a(n) for n = 1..661

Cf. A000196, A071187, A329614, A329613.

a(n) = A000196(A329613(n)).

A108951 Primorial inflation of n: Fully multiplicative with a(p) = p# for prime p, where x# is the primorial A034386(x).

Original entry on oeis.org

1, 2, 6, 4, 30, 12, 210, 8, 36, 60, 2310, 24, 30030, 420, 180, 16, 510510, 72, 9699690, 120, 1260, 4620, 223092870, 48, 900, 60060, 216, 840, 6469693230, 360, 200560490130, 32, 13860, 1021020, 6300, 144, 7420738134810, 19399380, 180180, 240, 304250263527210, 2520

Offset: 1

Paul Boddington, Jul 21 2005

This sequence is a permutation of A025487.
And thus also a permutation of A181812, see the formula section. - Antti Karttunen, Jul 21 2014
A previous description of this sequence was: "Multiplicative with a(p^e) equal to the product of the e-th powers of all primes at most p" (see extensions), Giuseppe Coppoletta, Feb 28 2015

			a(12) = a(2^2) * a(3) = (2#)^2 * (3#) = 2^2 * 6 = 24
a(45) = (3#)^2 * (5#) = (2*3)^2 * (2*3*5) = 1080 (as 45 = 3^2 * 5).

Amiram Eldar, Table of n, a(n) for n = 1..2370 (terms 1..256 from Antti Karttunen)
Index to divisibility sequences.
Index entries for sequences computed from indices in prime factorization.
Index entries for sequences related to primorial numbers.

Cf. A319626, A329900 (left inverses).

Cf. A034386, A002110, A025487, A048673, A064216, A064989, A085082, A122111, A124859, A161360, A181811, A181812, A181814, A181815, A181817, A181819, A181822, A238690, A283477, A283478, A307035, A324886, A324887, A324888, A324896, A325226, A329040, A329046, A329047, A329344, A329348, A329349, A329378, A329382, A329600, A329602, A329605, A329607, A329615, A329616, A329617, A329619, A329622, A319627, A329647, A331292, A337474, A346108, A346109, A344698, A344699.

a[n_] := a[n] = Module[{f = FactorInteger[n], p, e}, If[Length[f]>1, Times @@ a /@ Power @@@ f, {{p, e}} = f; Times @@ (Prime[Range[PrimePi[p]]]^e)]]; a[1] = 1; Table[a[n], {n, 1, 42}] (* Jean-François Alcover, Feb 24 2015 *)
Table[Times @@ Map[#1^#2 & @@ # &, FactorInteger[n] /. {p_, e_} /; e > 0 :> {Times @@ Prime@ Range@ PrimePi@ p, e}], {n, 42}] (* Michael De Vlieger, Mar 18 2017 *)

primorial(n)=prod(i=1,primepi(n),prime(i))
a(n)=my(f=factor(n)); prod(i=1,#f~, primorial(f[i,1])^f[i,2]) \\ Charles R Greathouse IV, Jun 28 2015

from sympy import primerange, factorint
from operator import mul
def P(n): return reduce(mul, [i for i in primerange(2, n + 1)])
def a(n):
    f = factorint(n)
    return 1 if n==1 else reduce(mul, [P(i)**f[i] for i in f])
print([a(n) for n in range(1, 101)]) # Indranil Ghosh, May 14 2017

def sharp_primorial(n): return sloane.A002110(prime_pi(n))
def p(f):
    return sharp_primorial(f[0])^f[1]
[prod(p(f) for f in factor(n)) for n in range (1,51)]
# Giuseppe Coppoletta, Feb 07 2015

Dirichlet g.f.: 1/(1-2*2^(-s))/(1-6*3^(-s))/(1-30*5^(-s))...
Completely multiplicative with a(p_i) = A002110(i) = prime(i)#. [Franklin T. Adams-Watters, Jun 24 2009; typos corrected by Antti Karttunen, Jul 21 2014]
From Antti Karttunen, Jul 21 2014: (Start)
a(1) = 1, and for n > 1, a(n) = n * a(A064989(n)).
a(n) = n * A181811(n).
a(n) = A002110(A061395(n)) * A331188(n). - [added Jan 14 2020]
a(n) = A181812(A048673(n)).
Other identities:
A006530(a(n)) = A006530(n). [Preserves the largest prime factor of n.]
A071178(a(n)) = A071178(n). [And also its exponent.]
a(2^n) = 2^n. [Fixes the powers of two.]
A067029(a(n)) = A007814(a(n)) = A001222(n). [The exponent of the least prime of a(n), that prime always being 2 for n>1, is equal to the total number of prime factors in n.]
(End)
From Antti Karttunen, Nov 19 2019: (Start)
Further identities:
a(A307035(n)) = A000142(n).
a(A003418(n)) = A181814(n).
a(A025487(n)) = A181817(n).
a(A181820(n)) = A181822(n).
a(A019565(n)) = A283477(n).
A001221(a(n)) = A061395(n).
A001222(a(n)) = A056239(n).
A181819(a(n)) = A122111(n).
A124859(a(n)) = A181821(n).
A085082(a(n)) = A238690(n).
A328400(a(n)) = A329600(n). (smallest number with the same set of distinct prime exponents)
A000188(a(n)) = A329602(n). (square root of the greatest square divisor)
A072411(a(n)) = A329378(n). (LCM of exponents of prime factors)
A005361(a(n)) = A329382(n). (product of exponents of prime factors)
A290107(a(n)) = A329617(n). (product of distinct exponents of prime factors)
A000005(a(n)) = A329605(n). (number of divisors)
A071187(a(n)) = A329614(n). (smallest prime factor of number of divisors)
A267115(a(n)) = A329615(n). (bitwise-AND of exponents of prime factors)
A267116(a(n)) = A329616(n). (bitwise-OR of exponents of prime factors)
A268387(a(n)) = A329647(n). (bitwise-XOR of exponents of prime factors)
A276086(a(n)) = A324886(n). (prime product form of primorial base expansion)
A324580(a(n)) = A324887(n).
A276150(a(n)) = A324888(n). (digit sum in primorial base)
A267263(a(n)) = A329040(n). (number of distinct nonzero digits in primorial base)
A243055(a(n)) = A329343(n).
A276088(a(n)) = A329348(n). (least significant nonzero digit in primorial base)
A276153(a(n)) = A329349(n). (most significant nonzero digit in primorial base)
A328114(a(n)) = A329344(n). (maximal digit in primorial base)
A062977(a(n)) = A325226(n).
A097248(a(n)) = A283478(n).
A324895(a(n)) = A324896(n).
A324655(a(n)) = A329046(n).
A327860(a(n)) = A329047(n).
A329601(a(n)) = A329607(n).
(End)
a(A181815(n)) = A025487(n), and A319626(a(n)) = A329900(a(n)) = n. - Antti Karttunen, Dec 29 2019
From Antti Karttunen, Jul 09 2021: (Start)
a(n) = A346092(n) + A346093(n).
a(n) = A346108(n) - A346109(n).
a(A342012(n)) = A004490(n).
a(A337478(n)) = A336389(n).
A336835(a(n)) = A337474(n).
A342002(a(n)) = A342920(n).
A328571(a(n)) = A346091(n).
A328572(a(n)) = A344592(n).
(End)
Sum_{n>=1} 1/a(n) = A161360. - Amiram Eldar, Aug 04 2022

More terms computed by Antti Karttunen, Jul 21 2014
The name of the sequence was changed for more clarity, in accordance with the above remark of Franklin T. Adams-Watters (dated Jun 24 2009). It is implicitly understood that a(n) is then uniquely defined by completely multiplicative extension. - Giuseppe Coppoletta, Feb 28 2015
Name "Primorial inflation" (coined by Matthew Vandermast in A181815) prefixed to the name by Antti Karttunen, Jan 14 2020

A329614 Smallest prime factor of the number of divisors of A108951(n).

Original entry on oeis.org

1, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 7, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2

Offset: 1

Antti Karttunen, Nov 17 2019

nonn

Differs from A071187 for the first time at n=324, where a(324) = 5, while A071187(324) = 3. The positions of the differences are listed at A329613.

			324 = 18^2 = 2^2 * 3^4, thus A108951(324) = 2^2 * (2*3)^4 = 2^6 * 3^4 = 5184, which has (6+1)*(4+1) = 7 * 5 = 35 divisors, thus a(324) = A020639(35) = 5.

Cf. A020639, A034386, A071187, A108951, A329605, A329608, A329612, A329613.

Array[FactorInteger[DivisorSigma[0, #]][[1, 1]] &@ Apply[Times, Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Times @@ Prime@ Range@ PrimePi@ p, e}]] &, 105] (* Michael De Vlieger, Nov 18 2019 *)

A034386(n) = prod(i=1, primepi(n), prime(i));
A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };  \\ From A108951
A071187(n) = if(1==n, n, my(f = factor(numdiv(n))); vecmin(f[, 1]));
A329614(n) = A071187(A108951(n));

a(n) = A071187(A108951(n)).

a(n) = A020639(A329605(n)).

A071189 Smallest prime factor of sum of divisors of n.

Original entry on oeis.org

1, 3, 2, 7, 2, 2, 2, 3, 13, 2, 2, 2, 2, 2, 2, 31, 2, 3, 2, 2, 2, 2, 2, 2, 31, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 7, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 127, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 11, 2, 2, 2, 2, 2, 2, 2

Offset: 1

Reinhard Zumkeller, May 15 2002

nonn

Antti Karttunen, Table of n, a(n) for n = 1..10000

Cf. A000203, A020639, A028982, A028983, A071187, A071190.

Table[FactorInteger[DivisorSigma[1,n]][[1,1]],{n,90}] (* Harvey P. Dale, May 15 2011 *)

A071189(n) = if(1==n, n, my(f = factor(sigma(n))); vecmin(f[, 1])); \\ Antti Karttunen, Jul 24 2017

first(n) = {my(v = vector(n, i, 2), sq = List()); for(i=1, sqrtint(n), listput(sq, i^2); listput(sq, 2*i^2)); listsort(sq); v[1]=1; for(i=2, #sq, if(sq[i]>n,break); v[sq[i]] = factor(sigma(sq[i]))[, 1]~[1]);v} \\ David A. Corneth, Jul 24 2017

a(n) = A020639(A000203(n)).

a(n) = 2 if and only if n is in A028983. - Amiram Eldar, Mar 24 2024

A071188 Largest prime factor of number of divisors of n; a(1)=1.

Original entry on oeis.org

1, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 5, 2, 3, 2, 3, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 5, 3, 3, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 7, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 3, 3, 2, 2, 2, 5, 5, 2, 2, 3, 2, 2, 2, 2, 2, 3

Offset: 1

Reinhard Zumkeller, May 15 2002

From Robert Israel, Dec 04 2016: (Start)
a(n)=2 if and only if every member of the prime signature of n is of the form 2^k-1.
a(m*k) = max(a(m),a(k)) if m and k are coprime. (End)

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A000005, A006530, A071187, A071190, A078542, A078543, A078544, A124010.

Cf. A327839, A354181.

a071188 = a006530 . a000005  -- Reinhard Zumkeller, Sep 04 2013

f:= n -> max(1, numtheory:-factorset(numtheory:-tau(n))):
map(f, [$1..100]); # Robert Israel, Dec 04 2016

Max[Transpose[FactorInteger[#]][[1]]]&/@DivisorSigma[0,Range[100]] (* Harvey P. Dale, Aug 28 2013 *)

a(n) = if(n == 1, 1, vecmax(factor(numdiv(n))[, 1])); \\ Michel Marcus, Dec 05 2016

a(n) = A006530(A000005(n)).

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 2*d(1) + Sum_{k>=2} prime(k)*(d(k) - d(k-1)) = 2.4365518864..., where d(1) = A327839, and for k >= 2, d(k) is the asymptotic density of numbers whose number of divisors is a prime(k)-smooth number, i.e., d(k) = Product_{p prime} ((1 - 1/p) * Sum_{i, A006530(i) <= prime(k)} 1/p^(i-1)) (see A354181 for an example). - Amiram Eldar, Jan 15 2024

cp's OEIS Frontend

A329613 Numbers k such that A071187(k) <> A329614(k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

PARI

A329611 Numbers n for which A071187(n^2) <> A329614(n^2).

Views

Author

Keywords

Links

Crossrefs

Formula

A108951 Primorial inflation of n: Fully multiplicative with a(p) = p# for prime p, where x# is the primorial A034386(x).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Sage

Formula

Extensions

A329614 Smallest prime factor of the number of divisors of A108951(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A071189 Smallest prime factor of sum of divisors of n.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A071188 Largest prime factor of number of divisors of n; a(1)=1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Formula