OFFSET
0,1
FORMULA
a(n) = A258851^n(2^3).
MAPLE
with(numtheory):
d:= n-> n*add(i[2]*pi(i[1])/i[1], i=ifactors(n)[2]):
a:= proc(n) option remember; `if`(n=0, 2^3, d(a(n-1))) end:
seq(a(n), n=0..23);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jun 12 2015
STATUS
approved