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.
%I A097016 #5 Mar 06 2018 23:06:02 %S A097016 5,5,22,44,85,85,230,260,352,950,950,1172,1172,1172,1172,1172,1172, %T A097016 1172,1172,1901,1901,7249,7249,7249,12932,12932,12932,12932,12932, %U A097016 38852,38852,226324,226324,235372,235372,235372,413974,413974,423485,423485 %N A097016 a(n)=x is the first term in chain of consecutive integers, for all of which the value of sigma[x] is divisible by 6. %C A097016 It appears that arbitrarily long chains exist. %e A097016 n=52: a(52)=1270685 means that all entries in {sigma[a(52)],...,sigma[1270685+52-1]} ={1666224,...,2520672} are divisible by 6. %t A097016 With[{ds=Table[If[Divisible[DivisorSigma[1,n],6],1,0],{n,450000}]},Flatten[ Table[SequencePosition[ds,PadRight[{},n,1],1],{n,40}],1][[All,1]]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 06 2018 *) %Y A097016 Cf. A000203, A084301, A074627. %K A097016 nonn %O A097016 1,1 %A A097016 _Labos Elemer_, Aug 23 2004