|
%I #8 Jul 13 2013 12:04:14
%S 1,2,3,4,5,6,7,8,9,11,12,13,15,16,17,18,19,21,23,25,27,29,30,31,32,33,
%T 35,37,39,41,42,43,44,45,47,49,51,52,53,54,55,56,57,59,61,64,65,66,67,
%U 68,69,71,72,73,75,76,77,78,79,81,83,85,87,88,89,90,91
%N Numbers such that the last of the differences of divisors is > 0.
%C A187202(a(n)) > 0.
%H Reinhard Zumkeller, <a href="/A193671/b193671.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.List (findIndices)
%o a193671 n = a193671_list !! (n-1)
%o a193671_list = map (+ 1) $ findIndices (> 0) $ map a187202 [1..]
%Y Cf. A187204, A193672.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Aug 02 2011
|
