|
| |
| |
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
