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.

A231090 Initial members of abundant sextuplets, i.e., values of n such that (n, n+2, n+4, n+6, n+8, n+10) are all abundant numbers.

This page as a plain text file.
%I A231090 #17 May 12 2022 16:32:50
%S A231090 801340,962650,7353340,21964300,41642140,48049690,55455940,89034940,
%T A231090 89851450,92253850,105259540,107948380,109455340,114295450,116754940,
%U A231090 122349370,135575980,156009850,159521050,173645440,188586700,192674170,193137850,220301770,221355126
%N A231090 Initial members of abundant sextuplets, i.e., values of n such that (n, n+2, n+4, n+6, n+8, n+10) are all abundant numbers.
%H A231090 Shyam Sunder Gupta and Donovan Johnson, <a href="/A231090/b231090.txt">Table of n, a(n) for n = 1..5000</a> (first 126 terms from Shyam Sunder Gupta)
%e A231090 801340, 801342, 801344, 801346, 801348, 801350 are abundant, thus the smallest number is listed.
%t A231090 AbundantQ[n_] := DivisorSigma[1, n] > 2n; m = 0; a = {}; Do[If[AbundantQ[n], m = m + 1; If[m > 5, AppendTo[a, n - 10]], m = 0], {n, 2, 1000000000, 2}];a
%t A231090 2*SequencePosition[Table[If[DivisorSigma[1,n]>2n,1,0],{n,2,2214*10^5,2}],{1,1,1,1,1,1}][[All,1]] (* _Harvey P. Dale_, May 12 2022 *)
%o A231090 (PARI) is(n)=sigma(n,-1)>2 && sigma(n+2,-1)>2 && sigma(n+4,-1)>2 && sigma(n+6,-1)>2 && sigma(n+8,-1)>2 && sigma(n+10,-1)>2 \\ _Charles R Greathouse IV_, Feb 21 2017
%Y A231090 Cf. A005101, A108926, A231086, A231088, A231089, A231092, A231093.
%K A231090 nonn
%O A231090 1,1
%A A231090 _Shyam Sunder Gupta_, Nov 03 2013