OFFSET
1,2
LINKS
Eric Weisstein's World of Mathematics, Divisor Function.
Eric Weisstein's World of Mathematics, Prime Power.
MATHEMATICA
f[n_] := Module[{f = FactorInteger[n]}, If[Length[f] == 1, f[[1, 2]] + 1, Nothing]]; f[1] = 1; Array[f, 400] (* Amiram Eldar, Apr 09 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 20 2003
STATUS
approved