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.

A094530 Numbers with exactly one arithmetic progression of four successive divisors (not necessarily consecutive).

This page as a plain text file.
%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