A328114 -id:A328114 - cp's OEIS frontend

A276156 Numbers obtained by reinterpreting base-2 representation of n in primorial base: a(0) = 0, a(2n) = A276154(a(n)), a(2n+1) = 1 + A276154(a(n)).

0, 1, 2, 3, 6, 7, 8, 9, 30, 31, 32, 33, 36, 37, 38, 39, 210, 211, 212, 213, 216, 217, 218, 219, 240, 241, 242, 243, 246, 247, 248, 249, 2310, 2311, 2312, 2313, 2316, 2317, 2318, 2319, 2340, 2341, 2342, 2343, 2346, 2347, 2348, 2349, 2520, 2521, 2522, 2523, 2526, 2527, 2528, 2529, 2550, 2551, 2552, 2553, 2556, 2557, 2558, 2559, 30030, 30031

Offset: 0

Antti Karttunen, Aug 24 2016

Numbers that are sums of distinct primorial numbers, A002110.

Numbers with no digits larger than one in primorial base, A049345.

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

Cf. A000040, A001511, A002110, A007088, A007814, A019565, A049345, A257993, A276084, A276085, A276154, A351073, A328461, A328473, A328474, A328571, A328831, A328836, A341518, A344591.
Complement of A177711.
Subsequences: A328233, A328832, A328462 (odd bisection).
Conjectured subsequences: A328110, A380527.
Fixed points of A328841, positions of zeros in A328828, A328842, and A329032, positions of ones in A328581, A328582, and A381032.
Positions of terms < 2 in A328114.
Indices where A327860 and A329029 coincide.
Cf. also table A328464 (and its rows).
Cf. also A059590, A283985, A290249, A342921.

nn = 65; b = MixedRadix[Reverse@ Prime@ Range[IntegerLength[nn, 2] - 1]]; Table[FromDigits[IntegerDigits[n, 2], b], {n, 0, 65}] (* Version 10.2, or *)
Table[Total[Times @@@ Transpose@ {Map[Times @@ # &, Prime@ Range@ Range[0, Length@ # - 1]], Reverse@ #}] &@ IntegerDigits[n, 2], {n, 0, 65}] (* Michael De Vlieger, Aug 26 2016 *)

A276156(n) = { my(s=0, p=1, r=1); while(n, if(n%2, s += r); n>>=1; p = nextprime(1+p); r *= p); (s); }; \\ Antti Karttunen, Feb 03 2022

from sympy import prime, primorial, primepi, factorint
from operator import mul
def a002110(n): return 1 if n<1 else primorial(n)
def a276085(n):
    f=factorint(n)
    return sum([f[i]*a002110(primepi(i) - 1) for i in f])
def a019565(n): return reduce(mul, (prime(i+1) for i, v in enumerate(bin(n)[:1:-1]) if v == '1')) # after Chai Wah Wu
def a(n): return 0 if n==0 else a276085(a019565(n))
print([a(n) for n in range(101)]) # Indranil Ghosh, Jun 23 2017

a(0) = 0, a(2n) = A276154(a(n)), a(2n+1) = 1+A276154(a(n)).
Other identities. For all n >= 0:
a(n) = A276085(A019565(n)).
A049345(a(n)) = A007088(n).
A257993(a(n)) = A001511(n).
A276084(a(n)) = A007814(n).
A051903(a(n)) = A351073(n).

A328572 Primorial base expansion of n converted into its prime product form, but with 1 subtracted from all nonzero digits: a(n) = A003557(A276086(n)).

Original entry on oeis.org

1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 3, 3, 5, 5, 5, 5, 15, 15, 25, 25, 25, 25, 75, 75, 125, 125, 125, 125, 375, 375, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 3, 3, 5, 5, 5, 5, 15, 15, 25, 25, 25, 25, 75, 75, 125, 125, 125, 125, 375, 375, 7, 7, 7, 7, 21, 21, 7, 7, 7, 7, 21, 21, 35, 35, 35, 35, 105, 105, 175, 175, 175, 175, 525, 525, 875, 875, 875, 875

Offset: 0

Antti Karttunen, Oct 20 2019

Antti Karttunen, Table of n, a(n) for n = 0..2310
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..32768
Index entries for sequences related to primorial base

Cf. A003557, A051903, A085731, A276086, A327860, A328114, A328475, A328571, A328573, A328575, A328577.

Block[{b = MixedRadix[Reverse@ Prime@ Range@ 12]}, Array[#1/(Times @@ #2[[All, 1]]) & @@ {#1, FactorInteger[#]} &[Times @@ Power @@@ #] &@ Transpose@ {Prime@ Range@ Length@ #, Reverse@ #} &@ IntegerDigits[#, b] &, 87, 0]] (* Michael De Vlieger, Mar 12 2021 *)

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

a(n) = A003557(A276086(n)).
a(n) = A276086(n) / A328571(n).
a(n) = A328475(n) / A328573(n).
For all n >= 1, 1+A051903(a(n)) = A328114(n).
a(n) = A085731(A276086(n)) = gcd(A276086(n), A327860(n)). - Antti Karttunen, Feb 28 2021

A327969 The length of a shortest path from n to zero when using the transitions x -> A003415(x) and x -> A276086(x), or -1 if no zero can ever be reached from n.

Original entry on oeis.org

0, 1, 2, 2, 5, 2, 3, 2, 6, 4, 3, 2, 5, 2, 5, 6, 6, 2, 5, 2, 7, 4, 3, 2

Offset: 0

Antti Karttunen, Oct 07 2019

The terms of this sequence are currently known only up to n=23, with the value of a(24) still being uncertain. For the tentative values of the later terms, see sequence A328324 which gives upper bounds for these terms, many of which are very likely also exact values for them.
As A051903(A003415(n)) >= A051903(n)-1, it means that it takes always at least A051903(n) steps to a prime if iterating solely with A003415.
Some known values and upper bounds from n=24 onward:
a(24) <= 11.
a(25) = 4.
a(26) = 7.
a(27) <= 22.
a(33) = 4.
a(39) = 4.
a(40) = 5.
a(42) = 3.
a(44) <= 10.
a(45) = 5.
a(46) = 5.
a(48) = 9.
a(49) = 6.
a(50) = 6.
a(55) = 7.
a(74) = 5.
a(77) = 6.
a(80) <= 18.
a(111) = 6.
a(112) = 8.
a(125) <= 9.
a(240) = 7.
a(625) <= 10.
a(875) = 8.
From Antti Karttunen, Feb 20 2022: (Start)
a(2556) <= 20.
a(5005) <= 19.
What is the value of a(128), and is A328324(128) well-defined?
When I created this sequence, I conjectured that by applying two simple arithmetic operations "arithmetic derivative" (A003415) and "primorial base exp-function" (A276086) in some combination, and starting from any positive integer, we could always reach zero (via a prime and 1).
At the first sight it seems almost certain that the conjecture holds, as it is always possible at every step to choose from two options (which very rarely meet, see A351088), leading to an exponentially growing search tree, and also because A276086 always jumps out of any dead-end path with p^p-factors (dead-end from the arithmetic derivative's point of view). However, it should be realized that one can reach the terms of either A157037 or A327978 with a single step of A003415 only from squarefree numbers (or respectively, cubefree numbers that are not multiples of 4, see A328234), and in general, because A003415 decreases the maximal exponent of the prime factorization (A051903) at most by one, if the maximal exponent in the prime factorization of n is large, there is a correspondingly long path to traverse if we take only A003415-steps in the iteration, and any step could always lead with certain probability to a p^p-number. Note that the antiderivatives of primorials with a square factor seem quite rare, see A351029.
And although taking a A276086-step will always land us to a p^p-free number (which a priori is not in the obvious dead-end path of A003415, although of course it might eventually lead to one), it (in most cases) also increases the magnitude of number considerably, that tends to make the escape even harder. Particularly, in the majority of cases A276086 increases the maximal exponent (which in the preimage is A328114, "maximal digit value used when n is written in primorial base"), so there will be even a longer journey down to squarefree numbers when using A003415. See the sequences A351067 and A351071 for the diminishing ratios suggesting rapidly diminishing chances of successfully reaching zero from larger terms of A276086. Also, the asymptotic density of A276156 is zero, even though A351073 may contain a few larger values.
On the other hand, if we could prove that by (for example) continuing upwards with any p^p-path of A003415 we could eventually reach with a near certainty a region of numbers with low values of A328114 (i.e., numbers with smallish digits in primorial base, like A276156), then the situation might change (see also A351089). However, a few empirical runs seemed to indicate otherwise.
For all of the above reasons, I now conjecture that there are natural numbers from which it is not possible to reach zero with any combination of steps. For example 128 or 5^5 = 3125.
(End)

			Let -A> stand for an application of A003415 and -B> for an application of A276086, then, we have for example:
a(8) = 6 as we have 8 -A>  12 -B>  25 -A> 10 -A>  7 -A> 1 -A> 0, six transitions in total (and there are no shorter paths).
a(15) = 6 as we have 15 -B> 150 -A> 185 -A> 42 -A> 41 -A> 1 -A> 0, six transitions in total (and there are no shorter paths).
a(20) = 7, as 20 -B> 375 -A> 350 -A> 365 -A> 78 -A> 71 -A> 1 -A> 0, and there are no shorter paths.
For n=112, we know that a(112) cannot be larger than eight, as A328099^(8)(112) = 0, so we have a path of length 8 as 112 -A> 240 -B> 77 -A> 18 -A> 21 -A> 10 -A> 7 -A> 1 -A> 0. Checking all 32 combinations of the paths of lengths of 5 starting from 112 shows that none of them or their prefixes ends with a prime, thus there cannot be any shorter path, and indeed a(112) = 8.
a(24) <= 11 as A328099^(11)(24) = 0, i.e., we have 24 -A> 44 -A> 48 -A> 112 -A> 240 -B> 77 -A> 18 -A> 21 -A> 10 -A> 7 -A> 1 -A> 0. On the other hand, 24 -B> 625 -B> 17794411250 -A> 41620434625 -A> 58507928150 -A> 86090357185 -A> 54113940517 -A> 19982203325 -A> 12038411230 -A> 8426887871 -A> 1 -A> 0, thus offering another path of length 11.

Cf. A003415, A046099, A051674, A051903, A068346, A276086, A276087, A327859, A327860, A328099, A328112, A328114, A328116, A328307.
Cf. A328324 (a sequence giving upper bounds, computed with restricted search space).
Sequences for whose terms k, value a(k) has a guaranteed constant upper bound: A000040, A002110, A143293, A157037, A192192, A327978, A328232, A328233, A328239, A328240, A328243, A328249, A328313.
Sequences for whose terms k, it is guaranteed that a(k) has finite value > 0, even if not bound by a constant: A099308, A328116.
Cf. also A256750, A327966, A328110, A351029, A351088, A351067, A351071, A351073, A351089 and A351255, A351256, A351257, A351258, A351261.

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A327969(n,searchlim=0) = if(!n,n,my(xs=Set([n]),newxs,a,b,u); for(k=1,oo, print("n=", n, " k=", k, " xs=", xs); newxs=Set([]); for(i=1,#xs,u = xs[i]; a = A003415(u); if(0==a, return(k)); if(isprime(a), return(k+2)); b = A276086(u); if(isprime(b), return(k+1+(u>2))); newxs = setunion([a],newxs); if(!searchlim || (b<=searchlim),newxs = setunion([b],newxs))); xs = newxs));

a(0) = 0, a(p^p) = 1 + a(A276086(p^p)) for primes p, and for other numbers, a(n) = 1+min(a(A003415(n)), a(A276086(n))).
a(p) = 2 for all primes p.
For all n, a(n) <= A328324(n).
Let A stand the transition x -> A003415(x), and B stand for x -> A276086(x). The following sequences give some constant upper limits, because it is guaranteed that the combination given in brackets (the leftmost A or B is applied first) will always lead to a prime:
For all n, a(A157037(n)) = 3.  [A]
For n > 1, a(A002110(n)) = 3.  [B]
For all n, a(A192192(n)) <= 4. [AA]
For all n, a(A327978(n)) = 4.  [AB]
For all n, a(A328233(n)) <= 4. [BA]
For all n, a(A143293(n)) <= 4. [BB]
For all n, a(A328239(n)) <= 5. [AAA]
For all n, a(A328240(n)) <= 5. [BAA]
For all n, a(A328243(n)) <= 5. [ABB]
For all n, a(A328313(n)) <= 5. [BBB]
For all n, a(A328249(n)) <= 6. [BAAA]
For all k in A046099, a(k) >= 4, and if A328114(k) > 1, then certainly a(k) > 4.

A235224 a(0) = 0, and for n > 0, a(n) = largest k such that A002110(k-1) <= n, where A002110(k) gives the k-th primorial number.

Original entry on oeis.org

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

Offset: 0

Reinhard Zumkeller, Jan 05 2014

nonn

For n > 0: a(n) = (length of row n in A235168) = A055642(A049345(n)).

For n > 0, a(n) gives the length of primorial base expansion of n. Also, after zero, each value n occurs A061720(n-1) times. - Antti Karttunen, Oct 19 2019

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Index entries for sequences related to primorial base

Cf. A000040, A002110, A049345, A055642, A061395, A061720, A084558, A267263, A276086, A235168, A328114, A328404, A328405, A328406.

a235224 n = length $ takeWhile (<= n) a002110_list

A235224 := proc(n)
    local k;
    if n = 0 then
        0;
    else
        for k from 0 do
            if A002110(k-1) > n then
                return k-1 ;
            end if;
        end do:
    end if;
end proc: # R. J. Mathar, Apr 19 2021

primorial[n_] := Times @@ Prime[Range[n]];
a[n_] := TakeWhile[primorial /@ Range[0, n], # <= n &] // Length;
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Oct 27 2021 *)

A235224(n) = { my(s=0, p=2); while(n, s++; n = n\p; p = nextprime(1+p)); (s); }; \\ Antti Karttunen, Oct 19 2019

A235224(n, p=2) = if(!n,n,if(nA235224(n\p, nextprime(p+1)))); \\ (Recursive implementation) - Antti Karttunen, Oct 19 2019

From Antti Karttunen, Oct 19 2019: (Start)
a(n) = A061395(A276086(n)).
For all n >= 0, a(n) >= A267263(n).
For all n >= 1, A000040(a(n)) > A328114(n). (End)

Name corrected to match the data by Antti Karttunen, Oct 19 2019

A328391 Maximal exponent in the prime factorization of A327860(n): a(n) = A051903(A327860(n)).

Original entry on oeis.org

0, 0, 1, 1, 1, 0, 1, 3, 1, 1, 1, 1, 2, 1, 1, 4, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 0, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 1, 2, 2, 7, 2, 2, 2, 3, 3, 3, 3, 3, 3, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2

Offset: 1

Antti Karttunen, Oct 15 2019

nonn

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

Cf. A002110, A003415, A051903, A276086, A327860, A327969, A328114, A328388, A328389, A328390, A328392.

A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
A327860(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= (p^e); s += (e/p); n = n\p; p = nextprime(1+p)); (s*m); };
A328391(n) = A051903(A327860(n));

a(n) = A051903(A327860(n)) = A051903(A003415(A276086(n))).
a(A002110(n)) = 0 for all n >= 0.
For all n >= 1, a(n) >= A328114(n)-1. [Because arithmetic derivative will decrease the maximal prime exponent (A051903) of its argument by at most one]

A328116 Numbers n such that the k-th arithmetic derivative of A276086(n) is zero for some k.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 9, 12, 15, 20, 21, 28, 30, 31, 32, 33, 35, 37, 38, 40, 43, 46, 47, 49, 50, 60, 61, 65, 67, 68, 71, 73, 74, 76, 79, 84, 85, 87, 91, 97, 98, 104, 106, 112, 118, 119, 121, 129, 133, 134, 151, 153, 180, 183, 196, 207, 210, 211, 212, 213, 218, 220, 221, 223, 225, 226, 227, 228, 229, 231, 235, 239, 240

Offset: 1

Antti Karttunen, Oct 08 2019

nonn

Numbers x such that A276086(x) [which is A351255(a(x))] is in A099308.

Antti Karttunen, Table of n, a(n) for n = 1..10000
Antti Karttunen, First 105368 terms (from 0 to 9699690)

Cf. A002110 (subsequence), A003415, A099308, A276086, A327969, A328306 (characteristic function), A328307 (its partial sums).

Cf. A351255 [= A276086(a(n))], A351256 [= A328114(a(n))].

A003415checked(n) = if(n<=1, 0, my(f=factor(n), s=0); for(i=1, #f~, if(f[i,2]>=f[i,1],return(0), s += f[i, 2]/f[i, 1])); (n*s));
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; };
isA099308(n) = { while(n>1, n = A003415checked(n)); (n); };
isA328116(n) = isA099308(A276086(n));

For all n >= 1, A328307(a(n)) = n.

A350074 Difference between the maximal digit in the primorial base expansion of n and the maximal exponent in the prime factorization of n.

Original entry on oeis.org

1, 0, 0, 0, 1, 0, 0, -2, -1, 1, 1, 0, 1, 1, 1, -2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 3, 1, 2, 3, 0, 0, -4, 0, 1, 1, -1, 0, 0, 0, -1, 1, 1, 1, 0, 0, 1, 1, -1, 1, 1, 2, 1, 2, 1, 3, 1, 3, 3, 3, 0, 1, 1, 0, -4, 1, 1, 1, 0, 1, 1, 1, -1, 1, 1, 0, 0, 1, 2, 2, -1, -1, 2, 2, 2, 3, 3, 3, 1, 3, 1, 2, 1, 2, 2, 2, -2, 2, 1, 1, 1, 2, 2, 2, 0, 2

Offset: 1

Antti Karttunen, Feb 01 2022

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

Cf. A051903, A276086, A328114.
Cf. A350075 (positions of negative terms), A350076 (of terms >= 0), A350070 (their characteristic function), A351038 (positions of terms <= 0), A351039 (their characteristic function).
Cf. also A351074.

A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A350074(n) = (A051903(A276086(n)) - A051903(n));

a(n) = A328114(n) - A051903(n) = A051903(A276086(n)) - A051903(n).

A350075 Numbers whose maximal digit in their primorial base expansion is less than the maximal exponent in their prime factorization.

Original entry on oeis.org

8, 9, 16, 32, 36, 40, 48, 64, 72, 80, 81, 96, 112, 128, 212, 216, 224, 240, 242, 243, 248, 250, 256, 270, 272, 280, 288, 304, 320, 352, 384, 424, 432, 448, 456, 459, 464, 480, 486, 488, 496, 512, 528, 544, 576, 640, 648, 672, 704, 720, 729, 736, 768, 864, 896, 928, 960, 972, 1024, 1088, 1152, 1216, 1280, 1408, 1536, 2048

Offset: 1

Antti Karttunen, Feb 01 2022

Numbers k for which the maximal prime exponent of A276086(k) is less than the maximal prime exponent of k, A051903(k).
Numbers k for which A328114(k) < A051903(k).
Numbers such that when the map x -> A276086(x) is applied to them, the maximal exponent in the prime factorization (A051903) decreases.

			In primorial base (see A049345) 9 = 3^2 is written as "111" (because 1*6 + 1*2 + 1*1 = 9), whose maximal digit (1) is less than the maximal exponent in the prime factorization of 9 (2), therefore 9 is included in this sequence.
In primorial base 2048 = 2^11 is written as "95110", whose maximal digit 9 is less than 11, therefore 2048 is included in this sequence.

Cf. A049345, A051903, A276086, A328114, A350076 (complement), A351067 and A351068 (counts).
Positions of negative terms in A350074.
Subsequence of A351038.
Cf. also A351075.

A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
isA350075(n) = (A051903(A276086(n)) < A051903(n));

A328403 a(n) = A276086(A276086(A276086(n))), where A276086(n) converts primorial base expansion of n into its prime product form.

Original entry on oeis.org

3, 6, 5, 18, 7, 43218, 125, 1050, 16807, 10, 161051, 1320550, 7105308412125, 7357350, 265837, 835182761270, 2292646180979, 146410, 258413198822535882125, 107718961350, 1045726245479028578048875581177070937, 32310040537956402036523898190, 528950766088569054716797662440479

Offset: 0

Antti Karttunen, Oct 15 2019

nonn

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

Cf. A276086, A276087, A328316, A328394, A328398, A328405, A328406.

Block[{b = MixedRadix[Reverse@ Prime@ Range@ 120], f}, f[n_] := Times @@ Power @@@ # &@ Transpose@ {Prime@ Range@ Length@ #, Reverse@ #} &@ IntegerDigits[n, b]; Array[Nest[f, #, 3] &, 23, 0]] (* Michael De Vlieger, Oct 17 2019 *)

A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328403(n) = A276086(A276086(A276086(n)));

a(n) = A276086(A276087(n)) = A276086(A276086(A276086(n))).
A051903(a(n)) = A328394(n).
A061395(a(n)) = A328405(n).
A328114(a(n)) = A328398(n).
A235224(a(n)) = A328406(n).

A328835 Prime shadow of primorial base exp-function: a(n) = A181819(A276086(n)).

Original entry on oeis.org

1, 2, 2, 4, 3, 6, 2, 4, 4, 8, 6, 12, 3, 6, 6, 12, 9, 18, 5, 10, 10, 20, 15, 30, 7, 14, 14, 28, 21, 42, 2, 4, 4, 8, 6, 12, 4, 8, 8, 16, 12, 24, 6, 12, 12, 24, 18, 36, 10, 20, 20, 40, 30, 60, 14, 28, 28, 56, 42, 84, 3, 6, 6, 12, 9, 18, 6, 12, 12, 24, 18, 36, 9, 18, 18, 36, 27, 54, 15, 30, 30, 60, 45, 90, 21, 42, 42, 84, 63, 126, 5, 10, 10, 20, 15, 30, 10, 20, 20

Offset: 0

Antti Karttunen, Oct 29 2019

nonn

From Antti Karttunen, Apr 30 2022: (Start)
These are prime-factorization representations of single-variable polynomials where the coefficient of term x^(k-1) (encoded as the exponent of prime(k) in the factorization of n) is equal to the number of times a nonzero digit k occurs in the primorial base representation of n.
Note that this sequence, and all the sequences derived from it as b(n) = f(a(n)), [where f is any integer-valued function] can be represented as b(n) = g(A278226(n)), where g(n) = f(A181819(n)). E.g., if f is the identity function (so that b(n) is this sequence), then g(n) is A181819(n). See the comment and formulas in the latter sequence.
(End)

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

Cf. A001222, A007814, A061395, A181819, A181821, A267263, A276086, A278226 (A286626), A328114, A328614.

Cf. A275735 for analogous sequence.

A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328835(n) = A181819(A276086(n));

a(n) = A181819(A276086(n)).
A001222(a(n)) = A267263(n).
A007814(a(n)) = A328614(n).
A061395(a(n)) = A328114(n).
For all n >= 0, a(n) = A181819(A278226(n)) and A181821(a(n)) = A278226(n). - Antti Karttunen, Apr 30 2022

cp's OEIS Frontend

A276156 Numbers obtained by reinterpreting base-2 representation of n in primorial base: a(0) = 0, a(2n) = A276154(a(n)), a(2n+1) = 1 + A276154(a(n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

A328572 Primorial base expansion of n converted into its prime product form, but with 1 subtracted from all nonzero digits: a(n) = A003557(A276086(n)).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A327969 The length of a shortest path from n to zero when using the transitions x -> A003415(x) and x -> A276086(x), or -1 if no zero can ever be reached from n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

PARI

Formula

A235224 a(0) = 0, and for n > 0, a(n) = largest k such that A002110(k-1) <= n, where A002110(k) gives the k-th primorial number.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

PARI

Formula

Extensions

A328391 Maximal exponent in the prime factorization of A327860(n): a(n) = A051903(A327860(n)).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A328116 Numbers n such that the k-th arithmetic derivative of A276086(n) is zero for some k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula

A350074 Difference between the maximal digit in the primorial base expansion of n and the maximal exponent in the prime factorization of n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A350075 Numbers whose maximal digit in their primorial base expansion is less than the maximal exponent in their prime factorization.

Views

Author

Keywords