OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..59049
MATHEMATICA
f[n_, i_, x_] := Which[n == 0, x, EvenQ@ n, f[n/2, i + 1, x], True, f[(n - 1)/2, i, x Prime@ i]]; Array[If[# == 1, 1, Times @@ MapIndexed[Prime[First[#2]]^#1 &, Sort[FactorInteger[#][[All, -1]], Greater]]] &@ f[FromDigits[IntegerDigits[#, 3] /. k_ /; k < 3 :> If[k == 0, 1, 0], 2], 1, 1] &, 96] (* Michael De Vlieger, Sep 11 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 11 2017
STATUS
approved