OFFSET
1,2
LINKS
MATHEMATICA
Array[Apply[Times, 2^Fibonacci[# + 1] & /@ FactorInteger[#][[All, -1]]] - Boole[# == 1] &, 105] (* Michael De Vlieger, Sep 02 2018 *)
PROG
(PARI) A318474(n) = factorback(apply(e -> 2^fibonacci(1+e), factor(n)[, 2]));
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Aug 29 2018
STATUS
approved