OFFSET
1,2
COMMENTS
LINKS
Paul Tek, Table of n, a(n) for n = 1..448
Paul Tek, PERL program for this sequence
EXAMPLE
The first terms of the sequence are:
+----+-------------+----------------------------+
| n | a(n) | a(n) in factorial base |
+----+-------------+----------------------------+
| 1 | 1 | 1 |
| 2 | 5 | 2_1 |
| 3 | 21 | 3_1_1 |
| 4 | 17 | 2_2_1 |
| 5 | 633 | 5_1_1_1_1 |
| 6 | 23 | 3_2_1 |
| 7 | 36153 | 7_1_1_1_1_1_1 |
| 8 | 65 | 2_2_2_1 |
| 9 | 93 | 3_3_1_1 |
| 10 | 635 | 5_1_1_2_1 |
| 11 | 443122713 | 11_1_1_1_1_1_1_1_1_1_1 |
| 12 | 71 | 2_3_2_1 |
| 13 | 81474226713 | 13_1_1_1_1_1_1_1_1_1_1_1_1 |
| 14 | 36155 | 7_1_1_1_1_2_1 |
| 15 | 645 | 5_1_3_1_1 |
| 16 | 113 | 4_2_2_1 |
+----+-------------+----------------------------+
MATHEMATICA
f[n_] := Block[{d = Divisors@ n, g, k, m = {1}}, g[x_] := Flatten[Table[#1, {#2}] & @@@ FactorInteger@ x]; Do[k = Max@ Select[d, # <= i &]; If[! IntegerQ@ k, AppendTo[m, 1], d = Divisors[Last[d]/k]; AppendTo[m, k]]; If[d == {1}, Break[]], {i, 2, n}]; Reverse@ m]; Table[FromDigits[#, MixedRadix[Reverse@ Range[2, Length@ #]]] &@ f@ n, {n, 30}] (* Michael De Vlieger, Oct 12 2015, Version 10.2 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paul Tek, Oct 10 2015
STATUS
approved