OFFSET
0,1
EXAMPLE
a(16) = 116 because 116 = 2*2*29, their Standard Deviation is 9*Sqrt(3) which equals approximately 15.5885 and when rounded up equals 16.
MATHEMATICA
Needs[ "Statistics`NormalDistribution`" ]; f[n_Integer] := Module[ {a = FactorInteger[n], b = {}}, While[ Length[a] > 0, Do[b = Append[b, a[[1, 1]]], {a[[1, 2]]}]; a = Drop[a, 1]]; b]; g[n_] := If[ PrimeQ[n], Return[0], Floor[ StandardDeviation[ f[n]] + 0.5]]; a = Table[0, {100}]; Do[b = g[n]; If[b < 100 && a[[b + 1]] == 0, a[[b + 1]] = n], {n, 101, 10^4}]; a
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Feb 05 2002
STATUS
approved