A276087 a(n) = A276086(A276086(n)).

2, 3, 6, 5, 30, 125, 18, 45, 150, 7, 1050, 343, 1250, 2625, 7350, 16807, 1650, 847, 43218, 3465, 27731550, 3195731, 1183724850, 435930295269007, 17794411250, 7105308412125, 3782866198615350, 2709490941157, 6237907125450, 161696170950365051, 10, 75, 750, 175, 294, 12005, 126, 2205, 51450, 11, 565950, 1331, 21008750, 9904125, 6225450, 161051, 1002614947950, 190333

Offset: 0

Author

Antti Karttunen, Aug 21 2016

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A000040, A002110, A143293, A276086.

Programs

Mathematica

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

Scheme

(define (A276087 n) (A276086 (A276086 n)))

Formula

a(n) = A276086(A276086(n)).

Other identities. For all n >= 0:

a(A143293(n)) = A000040(2+n).