|
%I #7 Jul 13 2013 12:04:14
%S 14,20,22,24,26,28,34,36,38,40,46,48,50,58,60,62,63,70,74,80,82,84,86,
%T 94,96,98,99,100,105,106,117,118,120,122,134,136,138,140,142,146,152,
%U 153,154,158,160,166,170,174,178,180,182,184,186,189,190,192,194
%N Numbers such that the last of the differences of divisors is < 0.
%C A187202(a(n)) < 0.
%H Reinhard Zumkeller, <a href="/A193672/b193672.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.List (findIndices)
%o a193672 n = a193672_list !! (n-1)
%o a193672_list = map (+ 1) $ findIndices (< 0) $ map a187202 [1..]
%Y Cf. A187204, A193672.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Aug 02 2011
|
