OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
The divisors of 60 are 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, and 60. Only 6 of these are < sqrt(60). And 60 is the first such number.
MATHEMATICA
nn = 22; t = Table[0, {nn}]; found = 0; n = 0; While[found < nn, n++; c = Length[Select[Divisors[n], # < Sqrt[n] &]]; If[c > 0 && c <= nn && t[[c]] == 0, t[[c]] = n; found++]]; t
Map[Function[k, FirstPosition[#, k]], Range@ 22] &@ Table[Count[Divisors@ n, m_ /; m < Sqrt@ n], {n, 10^5}] // Flatten (* Michael De Vlieger, May 13 2016, Version 10 *)
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a227068 = (+ 1) . fromJust . (`elemIndex` a056924_list)
-- Reinhard Zumkeller, Jul 12 2013
(C) See links section.
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jul 11 2013
EXTENSIONS
a(29) from Paul Tek, Jul 13 2013
STATUS
approved