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

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,1

Links

Antti Karttunen, Table of n, a(n) for n = 0..134

Index entries for sequences related to primorial base

Formula

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).

Mathematica

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 *)

Prog

(PARI)
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)));

Crossrefs

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

Sequence in context: A292682 A334748 A334079 * A199126 A247569 A115389

Adjacent sequences: A328400 A328401 A328402 * A328404 A328405 A328406

Keyword

nonn

Author

Antti Karttunen, Oct 15 2019

Status

approved