login
A276087
a(n) = A276086(A276086(n)).
32
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
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
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Aug 21 2016
STATUS
approved