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.

A353539 Starts of runs of 3 consecutive numbers whose abundancy index is larger than Pi^2/6.

This page as a plain text file.
%I A353539 #11 Apr 26 2022 04:45:41
%S A353539 188,230,284,374,404,434,440,494,824,854,944,1034,1070,1274,1448,1664,
%T A353539 1826,1910,1988,2114,2330,2534,2708,2924,3014,3374,3548,3590,3674,
%U A353539 3716,3794,3968,4184,4388,4598,4634,4850,5024,5048,5228,5444,5474,5564,5642,5864,5894
%N A353539 Starts of runs of 3 consecutive numbers whose abundancy index is larger than Pi^2/6.
%C A353539 The least odd term is a(64391) = 8110375.
%H A353539 Amiram Eldar, <a href="/A353539/b353539.txt">Table of n, a(n) for n = 1..10000</a>
%e A353539 188 is a term since sigma(188)/188 = 336/188 = 1.787..., sigma(189)/189 = 320/189 = 1.693... and sigma(190)/190 = 360/190 = 1.894... are all larger than Pi^2/6 = 1.644... .
%t A353539 q[n_] := DivisorSigma[-1, n] > Pi^2/6; seq[count_, nConsec_] := Module[{tri = q /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ tri, c++; AppendTo[s, k - nConsec]]; tri = Join[Rest[tri], {q[k]}]; k++]; s]; seq[46, 3]
%o A353539 (PARI) isok(k) = ((sigma(k)/k) > Pi^2/6) && ((sigma(k+1)/(k+1)) > Pi^2/6) && ((sigma(k+2)/(k+2)) > Pi^2/6); \\ _Michel Marcus_, Apr 25 2022
%Y A353539 Cf. A000203, A013661.
%Y A353539 Subsequence of A353537 and A353538.
%Y A353539 Subsequences: A096536, A353540, A353541.
%K A353539 nonn
%O A353539 1,1
%A A353539 _Amiram Eldar_, Apr 25 2022