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.
%I A094530 #12 Aug 02 2017 17:19:54 %S A094530 12,105,140,440,585,1729,3825,5643,6380,7161,9009,9867,10472,11408, %T A094530 12025,13923,17732,18705,19760,21505,23715,25568,27489,30272,36465, %U A094530 38665,43472,52521,58995,62307,62985,63308,64467,65780,69345,72105,81075,89425,101065 %N A094530 Numbers with exactly one arithmetic progression of four successive divisors (not necessarily consecutive). %C A094530 m*a(n) = A094529(k) for all m>0 and some k. %e A094530 Set of divisors of 440: {1,2,4,5,8,10,11,20,22,40,44,55,88,110,220,440}, there is only one arithmetic progression containing at least four terms: {2,5,8,11} = (2+k*3:0<=k<3), therefore 440 is a term. %t A094530 oap4Q[n_]:=Length[Select[Subsets[Divisors[n],{4}],Length[Union[ Differences[ #]]]==1&]]==1; Select[Range[102000],oap4Q] (* _Harvey P. Dale_, Aug 02 2017 *) %Y A094530 Cf. A091012, A094529. %K A094530 nonn %O A094530 1,1 %A A094530 _Reinhard Zumkeller_, May 07 2004