OFFSET
1,2
COMMENTS
EXAMPLE
a(8) = floor((2^((3+1)/2)-1)/2^(1/2)-1)) = floor(3/(sqrt(2)-1)) = floor(3(sqrt(2)+1)) = 7.
MATHEMATICA
f[n_] := Block[{pfe = FactorInteger[n]}, Times @@ Floor[((First /@ pfe)^((Last /@ pfe + 1)/2) - 1)/((First /@ pfe)^(1/2) - 1)]]; Table[ f[n], {n, 82}] (* Robert G. Wilson v, Jun 08 2005 *)
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Yasutoshi Kohmoto, May 23 2005
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Jun 08 2005
STATUS
approved