OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..100
EXAMPLE
a(2) = 28' = (2^2*7)' = 28*(2/2 + 1/7) = 32.
MAPLE
a:= proc(n) option remember; `if`(n=1, 28, (t->
t*add(i[2]/i[1], i=ifactors(t)[2]))(a(n-1)))
end:
seq(a(n), n=1..31); # Alois P. Heinz, Dec 02 2019
PROG
(PARI) a(n)=A090636(n, 28)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 14 2003
EXTENSIONS
Edited by M. F. Hasler, Nov 27 2019
STATUS
approved