A329620 -id:A329620 - cp's OEIS frontend

A329619 Difference between the maximal digit value used when A108951(n) is written in primorial base and its 2-adic valuation.

1, 0, 0, 0, 0, 0, 0, -2, -1, 0, 0, 1, 0, 0, 4, -2, 0, -1, 0, 1, 4, 0, 0, -1, 2, 0, -2, 1, 0, 2, 0, -4, 4, 0, 6, 0, 0, 0, 4, -3, 0, -2, 0, 1, 2, 0, 0, -2, 4, 5, 4, 1, 0, -2, 2, 4, 4, 0, 0, -1, 0, 0, 0, -4, 11, 9, 0, 1, 4, 2, 0, -2, 0, 0, 2, 1, 14, 9, 0, -3, 2, 0, 0, -2, 9, 0, 4, 4, 0, 6, 10, 1, 4, 0, 5, 0, 0, 9, 7, 2, 0, 9, 0, 4, 1

Offset: 1

Antti Karttunen, Nov 18 2019

sign

Cf. A001222, A007814, A034386, A108951, A276086, A324886, A328114, A329344, A329618, A329620, A329622.

With[{b = Reverse@ Prime@ Range@ 120}, Array[Max@ IntegerDigits[#, MixedRadix[b]] &@ Apply[Times, Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Times @@ Prime@ Range@ PrimePi@ p, e}]] - PrimeOmega[#] &, 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
A328114(n) = { my(s=0, p=2); while(n, s = max(s,(n%p)); n = n\p; p = nextprime(1+p)); (s); };
A329344(n) = A328114(A108951(n));
A329619(n) = (A329344(n) - bigomega(n));

a(n) = A329344(n) - A001222(n).
a(n) = A328114(A108951(n)) - A007814(A108951(n)).
a(p) = 0 for all primes p.

A329618 a(n) = gcd(A001222(n), A324888(n)), where A324888(n) is the minimal number of primorials (A002110) that add to A108951(n).

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 4, 1, 1, 1, 1, 2, 2, 1, 4, 2, 2, 1, 1, 1, 3, 1, 1, 2, 2, 2, 4, 1, 2, 2, 2, 1, 1, 1, 1, 3, 2, 1, 1, 2, 3, 2, 1, 1, 4, 2, 4, 2, 2, 1, 2, 1, 2, 3, 2, 2, 3, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 4, 2, 1, 4, 2, 2, 2, 4, 1, 4, 2, 1, 2, 2, 2, 2, 1, 1, 3, 4, 1, 3, 1, 4, 1

Offset: 1

Antti Karttunen, Nov 18 2019

nonn

Cf. A001222, A034386, A108951, A276086, A324886, A324888, A329619, A329620, A329621.

With[{b = Reverse@ Prime@ Range@ 120}, Array[GCD[PrimeOmega@ #1, Total@ IntegerDigits[#2, MixedRadix[b]]] & @@ {#, 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
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A324886(n) = A276086(A108951(n));
A329618(n) = gcd(bigomega(n), bigomega(A324886(n)));

a(n) = gcd(A001222(n), A324888(n)) = gcd(A001222(n), A001222(A324886(n))).

A351235 Lexicographically earliest infinite sequence such that a(i) = a(j) => A046523(i) = A046523(j), A327858(i) = A327858(j) and A345000(i) = A345000(j) for all i, j >= 1.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 5, 6, 7, 2, 8, 2, 9, 10, 11, 2, 12, 2, 13, 14, 7, 2, 15, 16, 17, 18, 8, 2, 19, 2, 20, 21, 7, 22, 23, 2, 24, 10, 25, 2, 19, 2, 26, 27, 28, 2, 29, 30, 31, 14, 32, 2, 33, 10, 25, 10, 7, 2, 34, 2, 9, 27, 35, 36, 19, 2, 13, 10, 19, 2, 37, 2, 9, 38, 39, 36, 19, 2, 40, 41, 7, 2, 34, 10, 17, 10, 42, 2

Offset: 1

Antti Karttunen, Feb 06 2022

Restricted growth sequence transform of the triplet [A046523(n), A327858(n), A345000(n)].
For all i, j >= 1:
  A305800(i) = A305800(j) => a(i) = a(j) => A351085(i) = A351085(j).

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

Cf. A003415, A046523, A276086, A327858, A345000, A351086.

Cf. also A101296, A305800, A329620, A351085, A351236.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A003415(n) = {my(fac); if(n<1, 0, fac=factor(n); sum(i=1, matsize(fac)[1], n*fac[i, 2]/fac[i, 1]))}; \\ From A003415
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A327858(n) = gcd(A003415(n),A276086(n));
A345000(n) = gcd(A003415(n),A003415(A276086(n)));
Aux351235(n) = [A046523(n), A327858(n), A345000(n)];
v351235 = rgs_transform(vector(up_to,n,Aux351235(n)));
A351235(n) = v351235[n];

A373983 Lexicographically earliest infinite sequence such that a(i) = a(j) = A246277(A324886(i)) = A246277(A324886(j)) and A278226(A328768(i)) = A278226(A328768(j)), for all i, j >= 1.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 5, 5, 6, 2, 7, 2, 8, 9, 10, 2, 11, 2, 12, 13, 14, 2, 15, 16, 6, 17, 18, 2, 19, 2, 20, 21, 22, 23, 24, 2, 25, 26, 27, 2, 28, 2, 29, 30, 31, 2, 32, 33, 34, 13, 35, 2, 36, 37, 38, 39, 40, 2, 41, 2, 8, 42, 43, 44, 45, 2, 29, 46, 47, 2, 48, 2, 49, 50, 51, 52, 53, 2, 54, 55, 56, 2, 57, 58, 14, 59, 60, 2, 61, 62, 63, 13, 64, 65, 66, 2, 67, 68, 69

Offset: 1

Antti Karttunen, Jun 25 2024

Restricted growth sequence transform of the ordered pair [A246277(A276086(A108951(n))), A046523(A276086(A328768(n)))].
For all i, j >= 1:
  A305800(i) = A305800(j) => a(i) = a(j),
  a(i) = a(j) => A329345(i) = A329345(j) => A329045(i) = A329045(j),
  a(i) = a(j) => A373982(i) = A373982(j) => A328771(i) = A328771(j).
It is hard to say for sure which graphical features in the scatter plot have their provenance in A373982, and which ones in A329345.

Antti Karttunen, Table of n, a(n) for n = 1..100000
Index entries for sequences related to primorial numbers

Cf. A002110, A046523, A108951, A246277, A276086, A278226, A324886, A328768.
Cf. A305800, A329045, A329345, A328771, A373982.
Cf. also A329620.

up_to = 100000;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };
A108951(n) = { my(f=factor(n)); prod(i=1, #f~,  prod(i=1, primepi(f[i, 1]), prime(i))^f[i, 2]); };
A246277(n) = if(1==n, 0, my(f = factor(n), k = primepi(f[1,1])-1); for (i=1, #f~, f[i,1] = prime(primepi(f[i,1])-k)); factorback(f)/2);
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A002110(n) = prod(i=1,n,prime(i));
A328768(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]*A002110(primepi(f[i,1])-1)/f[i, 1]));
Aux373983(n) = [A246277(A276086(A108951(n))), A046523(A276086(A328768(n)))];
v373983 = rgs_transform(vector(up_to, n, Aux373983(n)));
A373983(n) = v373983[n];

A351949 Lexicographically earliest infinite sequence such that a(i) = a(j) => A246277(A329044(i)) = A246277(A329044(j)) and A003557(i) = A003557(j), for all i, j >= 1.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Apr 05 2022

nonn

Restricted growth sequence transform of the ordered pair [A003557(n), A329345(n)].

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

Cf. A003557, A305800, A329044, A329345, A329620.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A003557(n) = (n/factorback(factorint(n)[, 1]));
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]) };
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A324886(n) = A276086(A108951(n));
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)};
A329044(n) = A064989(A324886(n));
A246277(n) = if(1==n, 0, my(f = factor(n), k = primepi(f[1,1])-1); for (i=1, #f~, f[i,1] = prime(primepi(f[i,1])-k)); factorback(f)/2);
v351949 = rgs_transform(vector(up_to, n, [A003557(n), A246277(A329044(n))]));
A351949(n) = v351949[n];

cp's OEIS Frontend

A329619 Difference between the maximal digit value used when A108951(n) is written in primorial base and its 2-adic valuation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A329618 a(n) = gcd(A001222(n), A324888(n)), where A324888(n) is the minimal number of primorials (A002110) that add to A108951(n).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A351235 Lexicographically earliest infinite sequence such that a(i) = a(j) => A046523(i) = A046523(j), A327858(i) = A327858(j) and A345000(i) = A345000(j) for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A373983 Lexicographically earliest infinite sequence such that a(i) = a(j) = A246277(A324886(i)) = A246277(A324886(j)) and A278226(A328768(i)) = A278226(A328768(j)), for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A351949 Lexicographically earliest infinite sequence such that a(i) = a(j) => A246277(A329044(i)) = A246277(A329044(j)) and A003557(i) = A003557(j), for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI