A193671 - OEIS

%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