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.

A293635 Positions of superabundant numbers in the sequence of primorial products.

This page as a plain text file.
%I A293635 #24 Nov 06 2023 01:12:27
%S A293635 1,2,3,4,6,8,11,12,13,17,20,24,27,34,36,43,47,55,67,84,95,107,112,138,
%T A293635 166,183,211,220,252,261,264,314,348,390,406,457,476,500,582,652,726,
%U A293635 756,839,870,907,1046,1188,1199,1294,1310,1359,1500,1553,1615,1835
%N A293635 Positions of superabundant numbers in the sequence of primorial products.
%C A293635 Indices of A004394 in A025487; the latter is easily seen to contain the former.
%H A293635 Michael De Vlieger, <a href="/A293635/b293635.txt">Table of n, a(n) for n = 1..300</a> (first 84 terms from Robert Price)
%t A293635 Block[{P = Product[Prime@ i, {i, 7}], s, t, u}, s = Array[DivisorSigma[1, #]/# &, P]; t = Array[If[# == 1, {0}, Sort[FactorInteger[#][[All, -1]], Greater]] &, P]; u = Values[PositionIndex@ t][[All, 1]]; Map[FirstPosition[u, #][[1]] &, FirstPosition[s, #][[1]] & /@ Union@ FoldList[Max, s]]] (* _Michael De Vlieger_, Oct 14 2017 *)
%Y A293635 Cf. A002110, A004394, A025487.
%K A293635 nonn
%O A293635 1,2
%A A293635 _Allan C. Wechsler_, Oct 13 2017
%E A293635 More terms from _Michael De Vlieger_, Oct 14 2017
%E A293635 More terms from _Robert Price_, Oct 19 2017