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 A049051 #29 Apr 11 2024 04:00:45 %S A049051 11605,12855,13782,19142,21494,28374,28375,40311,42805,50582,55254, %T A049051 60231,60663,79094,87655,90181,90182,95845,99655,103621,109765,115591, %U A049051 120727,121045,122151,122871,142454,142806,152630,157493,157494,171893 %N A049051 Numbers k such that k through k+4 all have the same number of divisors. %H A049051 Amiram Eldar, <a href="/A049051/b049051.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Donovan Johnson) %t A049051 Flatten[Position[Partition[DivisorSigma[0,Range[200000]],5,1],_?(Length[ Union[#]] == 1&),{1},Heads->False]] (* _Harvey P. Dale_, May 30 2014 *) %t A049051 SequencePosition[DivisorSigma[0,Range[200000]],{x_,x_,x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 03 2017 *) %Y A049051 Cf. A000005, A006558, A019273, A039665, A119479. %Y A049051 Other runs of equidivisor numbers: A005237 (runs of 2), A005238 (runs of 3), A006601 (runs of 4), A049052 (runs of 6), A049053 (runs of 7). %K A049051 nonn %O A049051 1,1 %A A049051 _David W. Wilson_