cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A187208 Numbers such that the last of the absolute differences of divisors is 1.

This page as a plain text file.
%I A187208 #16 Nov 07 2022 12:12:59
%S A187208 1,2,4,8,12,16,20,32,36,48,64,80,108,112,128,156,192,204,220,252,256,
%T A187208 260,272,304,320,324,368,396,448,476,484,512,544,608,656,660,688,768,
%U A187208 972,1008,1024,1044,1120,1184,1248,1280,1300,1332,1476,1764,1792,1908
%N A187208 Numbers such that the last of the absolute differences of divisors is 1.
%C A187208 Numbers n such that A187203(n) = 1.
%C A187208 A000079 is a subsequence (powers of 2). [_Reinhard Zumkeller_, Aug 02 2011]
%H A187208 Reinhard Zumkeller, <a href="/A187208/b187208.txt">Table of n, a(n) for n = 1..1000</a>
%t A187208 lad1Q[n_]:=Nest[Abs[Differences[#]]&,Divisors[n],DivisorSigma[0,n]-1]=={1}; Select[Range[2000],lad1Q] (* _Harvey P. Dale_, Nov 07 2022 *)
%o A187208 (Haskell)
%o A187208 import Data.List (elemIndices)
%o A187208 a187208 n = a187208_list !! (n-1)
%o A187208 a187208_list = map (+ 1) $ elemIndices 1 $ map a187203 [1..]
%o A187208 -- _Reinhard Zumkeller_, Aug 02 2011
%Y A187208 Cf. A027750, A187202, A187203, A187204, A187205.
%K A187208 nonn
%O A187208 1,2
%A A187208 _Omar E. Pol_, Aug 01 2011