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.

A242393 Records in A187202 by index.

This page as a plain text file.
%I A242393 #9 May 16 2014 15:47:45
%S A242393 1,3,5,7,11,13,17,19,23,29,30,42,90,132,150,156,168,240,360,420,756,
%T A242393 924,960,1260,2160,2520,4620,5040,6720,7560,14280,16380,18480,20160,
%U A242393 31680,35280,41580,45360,50400,65520,98280,110880,171360,226800,249480,257040,262080,277200,332640
%N A242393 Records in A187202 by index.
%C A242393 The first nine odd primes are present, and then only (very) abundant numbers.
%H A242393 Robert G. Wilson v, <a href="/A242393/b242393.txt">Table of n, a(n) for n = 1..106</a>
%e A242393 The final or last difference of 30 is 50 = A187202(30). The next higher value is 104 which occurs at 42, A187202(42) = 104.
%t A242393 f[n_] := (dvr = Divisors@ n; Differences[dvr, Length@ dvr - 1][[1]]); k = 1; lst = {}; mx = 0; While[k < 100000001, If[ f@ k > mx, mx = f@ k; Print[{k, mx}]; AppendTo[lst, {k, mx}]]; k++]; Transpose[ lst][[1]]
%Y A242393 Cf. A187202.
%K A242393 nonn
%O A242393 1,2
%A A242393 _Robert G. Wilson v_, May 12 2014