OFFSET
1,48
LINKS
David W. Wilson, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
a133008 n = length [x | x <- takeWhile (< n) a000028_list,
n `mod` x == 0, let y = n `div` x, x < y,
y `elem` takeWhile (<= n) a000028_list]
-- Reinhard Zumkeller, Oct 05 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
David W. Wilson, Dec 21 2007
STATUS
approved