A327168 -id:A327168 - cp's OEIS frontend

A324198 a(n) = gcd(n, A276086(n)), where A276086 is the primorial base exp-function.

1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 5, 1, 1, 1, 1, 15, 1, 1, 1, 1, 5, 3, 1, 1, 1, 25, 1, 3, 1, 1, 1, 1, 1, 3, 1, 7, 1, 1, 1, 3, 5, 1, 7, 1, 1, 15, 1, 1, 1, 7, 25, 3, 1, 1, 1, 5, 7, 3, 1, 1, 1, 1, 1, 21, 1, 1, 1, 1, 1, 3, 35, 1, 1, 1, 1, 75, 1, 7, 1, 1, 5, 3, 1, 1, 7, 5, 1, 3, 1, 1, 1, 7, 1, 3, 1, 1, 1, 1, 49, 3, 5, 1, 1, 1, 1, 105

Offset: 0

Antti Karttunen, Feb 25 2019

nonn

Antti Karttunen, Table of n, a(n) for n = 0..65537
Index entries for sequences related to primorial base

Cf. A003989, A276086, A323878, A324284, A324350, A324351, A324384, A324577, A324580, A324646, A327858, A328323, A327168, A328316, A328323, A328386, A328584, A346242 (Dirichlet inverse), A351254.
Cf. A324583 (positions of ones), A324584 (and terms larger than one).
Cf. A371098 (odd bisection), A371099 [= a(36n+9)].
Cf. also A328231.

Array[Block[{i, m, n = #, p}, m = i = 1; While[n > 0, p = Prime[i]; m *= p^Mod[n, p]; n = Quotient[n, p]; i++]; GCD[#, m]] &, 106, 0] (* Michael De Vlieger, Feb 04 2022 *)

A276086(n) = { my(i=0,m=1,pr=1,nextpr); while((n>0),i=i+1; nextpr = prime(i)*pr; if((n%nextpr),m*=(prime(i)^((n%nextpr)/pr));n-=(n%nextpr));pr=nextpr); m; };
A324198(n) = gcd(n,A276086(n));

A324198(n) = { my(m=1, p=2, orgn=n); while(n, m *= (p^min(n%p,valuation(orgn,p))); n = n\p; p = nextprime(1+p)); (m); }; \\ Antti Karttunen, Oct 21 2019

a(n) = gcd(n, A276086(n)).
From Antti Karttunen, Oct 21 2019: (Start)
A000005(a(n)) = A327168(n).
a(A328316(n)) = A328323(n).
a(n) = A324580(n) / A328584(n).
(End)

A327167 a(n) = Product_{d|A276086(n), d>1} A008578(1+A286561(n,d)), where A286561(n,d) gives the highest exponent of d dividing n.

Original entry on oeis.org

1, 1, 2, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 8, 1, 1, 1, 1, 2, 2, 1, 1, 1, 6, 1, 5, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 1, 1, 12, 1, 1, 1, 3, 6, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 12, 1, 1, 1, 1, 1, 2, 8, 1, 1, 1, 1, 48, 1, 2, 1, 1, 2, 7, 1, 1, 2, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 6, 3, 3, 1, 1, 1, 1, 128

Offset: 1

Antti Karttunen, Sep 19 2019

nonn

Antti Karttunen, Table of n, a(n) for n = 1..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Cf. A008578, A276086, A286561, A327168.

Cf. also A293514, A322312, A323155, A327154, A327155, A327156.

A276086(n) = { my(i=0,m=1,pr=1,nextpr); while((n>0),i=i+1; nextpr = prime(i)*pr; if((n%nextpr),m*=(prime(i)^((n%nextpr)/pr));n-=(n%nextpr));pr=nextpr); m; };
A327167(n) = { my(m=1,v); fordiv(A276086(n),d,if((d>1) && ((v = valuation(n,d))>0), m *= prime(v))); (m); };

a(n) = Product_{d|A276086(n), d>1} A008578(1+A286561(n,d)).
Other identities. For all n >= 1:
1+A001222(a(n)) = A327168(n).

A329037 a(n) = Product_{d|n, d>1} A008578(1+A286561(A276086(n),d)), where A286561(x,d) gives the exponent of the highest power of d dividing x.

Original entry on oeis.org

1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 12, 1, 1, 1, 1, 5, 2, 1, 1, 1, 21, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 1, 1, 12, 1, 1, 1, 2, 10, 2, 1, 1, 1, 7, 2, 2, 1, 1, 1, 1, 1, 12, 1, 1, 1, 1, 1, 2, 12, 1, 1, 1, 1, 48, 1, 3, 1, 1, 5, 2, 1, 1, 3, 7, 1, 2, 1, 1, 1, 5, 1, 2, 1, 1, 1, 1, 10, 2, 2, 1, 1, 1, 1, 720

Offset: 1

Antti Karttunen, Nov 08 2019

nonn

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

Cf. A008578, A276086, A286561, A327168.

Cf. also A327167.

A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A329037(n) = { my(m=1,x=A276086(n),v); fordiv(n,d,if((d>1) && ((v = valuation(x,d))>0), m *= prime(v))); (m); };

a(n) = Product_{d|n, d>1} A008578(1+A286561(A276086(n),d)).

1+A001222(a(n)) = A327168(n).

cp's OEIS Frontend

A324198 a(n) = gcd(n, A276086(n)), where A276086 is the primorial base exp-function.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A327167 a(n) = Product_{d|A276086(n), d>1} A008578(1+A286561(n,d)), where A286561(n,d) gives the highest exponent of d dividing n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A329037 a(n) = Product_{d|n, d>1} A008578(1+A286561(A276086(n),d)), where A286561(x,d) gives the exponent of the highest power of d dividing x.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula