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

Links

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

Formula

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

Other identities. For all n >= 0:

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

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

Prog

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

Crossrefs

Cf. A000040, A002110, A143293, A276086.

Sequence in context: A338219 A066838 A228151 * A341837 A084678 A221020

Adjacent sequences: A276084 A276085 A276086 * A276088 A276089 A276090

Keyword

nonn,base

Author

Antti Karttunen, Aug 21 2016

Status

approved