A328319 -id:A328319 - cp's OEIS frontend

A328316 Iterates of A276086 starting from 0.

0, 1, 2, 3, 6, 5, 18, 125, 43218, 258413198822535882125

Offset: 0

Antti Karttunen, Oct 14 2019

nonn

The unique infinite sequence such that a(0) = 0, a(n) = A276085(a(n+1)) for n >= 0, and A129251(a(n)) = 0 for n >= 1, i.e., all nonzero terms must be in A048103.

a(10) is 240 decimal digits long (can be found in b-file), and a(11) is too big to fit even into a b-file as it is 32700 decimal digits long, but it can be found in the given a-file.

Antti Karttunen, Table of n, a(n) for n = 0..10
Antti Karttunen, Terms a(0) .. a(11), without running index
Index entries for sequences related to primorial base

Cf. A002110, A048103, A129251, A276085, A276086, A328317 (the smallest prime not dividing a(n)), A328318, A328319 (digit sum in primorial base), A328322 (max. digit), A328323.
Cf. A153013, and also A109162, A179016, A219666, A259934 for more or less analogous sequences.
Cf. also A328313.

A276086[n0_] := Module[{m = 1, i = 1, n = n0, p}, While[n > 0, p = Prime[i]; m *= p^Mod[n, p]; n = Quotient[n, p]; i++]; m];
NestList[A276086, 0, 10] (* Jean-François Alcover, Dec 01 2021, after Antti Karttunen in A276086 *)

A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328316(n) = if(!n,0,A276086(A328316(n-1)));

a(0) = 0; and for n > 0, a(n) = A276086(a(n-1)).

A328317 Smallest prime not dividing A328316(n), with a(0) = 1 by convention; Equally, for n > 0, smallest prime dividing A328316(1+n).

Original entry on oeis.org

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

Offset: 0

Antti Karttunen, Oct 14 2019

a(2n+1) = 2 for all n >= 0. Does the pattern of 5's in the even bisection also continue?

Cf. A020639, A053669, A276086, A326810, A328316, A328318, A328319, A328322, A328323, A328585, A328586, A328633.

A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328316(n) = if(!n,0,A276086(A328316(n-1)));
A053669(n) = forprime(p=2, , if(n%p, return(p))); \\ From A053669
A328317(n) = if(0==n,1,A053669(A328316(n)));
\\ Or alternatively as:
A020639(n)=if(n>1, if(n>n=factor(n, 0)[1, 1], n, factor(n)[1, 1]), 1)
A328317(n) = A020639(A328316(1+n));

a(0) = 1; and for n > 0, a(n) = A053669(A328316(n)).
a(n) = A020639(A328316(1+n)).
For n >= 1, a(n) = A326810(A328316(n-1)). - Antti Karttunen, Nov 15 2019

a(12)-a(13) from Jinyuan Wang, Jul 20 2020

A328322 Maximal digit value used when A328316(n) is written in primorial base; maximal prime exponent in A328316(1+n).

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 3, 4, 7, 49, 430, 74814

Offset: 0

Antti Karttunen, Oct 14 2019

nonn

Index entries for sequences related to primorial base

Cf. A051903, A276086, A328114, A328316, A328317, A328318, A328319, A328323.

A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328316(n) = if(!n,0,A276086(A328316(n-1)));
A328114(n) = { my(s=0, p=2); while(n, s = max(s,(n%p)); n = n\p; p = nextprime(1+p)); (s); };
A328322(n) = A328114(A328316(n));
\\ Or alternatively as, more slowly:
A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
A328322(n) = A051903(A328316(1+n));

a(n) = A328114(A328316(n)).

a(n) = A051903(A328316(1+n)).

A328318 Number of nonzero digits in representation of A328316(n) in primorial base; Number of distinct prime factors in A328316(1+n).

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 1, 3, 5, 16, 104, 7447

Offset: 0

Antti Karttunen, Oct 14 2019

Index entries for sequences related to primorial base

Cf. A001221, A267263, A276086, A328316, A328317, A328319.

A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328316(n) = if(!n,0,A276086(A328316(n-1)));
A267263(n) = { my(s=0, p=2, d); while(n, d = (n%p); s += !!d; n = (n-d)/p; p = nextprime(1+p)); (s); };
A328318(n) = A267263(A328316(n));
\\ Or alternatively, more slowly as:
A328318(n) = omega(A328316(1+n));

a(n) = A267263(A328316(n)).

a(n) = A001221(A328316(1+n)).

cp's OEIS Frontend

A328316 Iterates of A276086 starting from 0.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A328317 Smallest prime not dividing A328316(n), with a(0) = 1 by convention; Equally, for n > 0, smallest prime dividing A328316(1+n).

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI

Formula

Extensions

A328322 Maximal digit value used when A328316(n) is written in primorial base; maximal prime exponent in A328316(1+n).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A328318 Number of nonzero digits in representation of A328316(n) in primorial base; Number of distinct prime factors in A328316(1+n).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula