The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #13 Jan 26 2020 11:03:12
%S 13781,19141,21493,50581,142453,152629,253013,298693,307253,346501,
%T 507781,543061,845381,1079093,1273781,1354501,1386901,1492069,1546261,
%U 1661333,1665061,1841141,2192933,2208517,2436341,2453141,2545013
%N Primes p such that p+1, p+2, p+3, p+4 and p+5 have equal number of divisors.
%H Amiram Eldar, <a href="/A119730/b119730.txt">Table of n, a(n) for n = 1..10000</a>
%e 13781 is a term since 13782, 13783, 13784, 13785 and 13786 all have 8 divisors:
%e {1,2,3,6,2297,4594,6891,13782}, {1,7,11,77,179,1253,1969,13783},
%e {1,2,4,8,1723,3446,6892,13784}, {1,3,5,15,919,2757,4595,13785} and
%e {1,2,61,113,122,226,6893,13786}.
%t Select[Prime@Range[1000000],DivisorSigma[0,#+1]==DivisorSigma[0,#+2]==DivisorSigma[0,#+3]==DivisorSigma[0,#+4]==DivisorSigma[0,#+5]&]
%t endQ[n_]:= Length[Union[DivisorSigma[0, (n + Range[5])]]]==1; Select[Prime[ Range[ 200000]],endQ] (* _Harvey P. Dale_, Jan 16 2019 *)
%Y Cf. A008329, A049234, A119705, A119711, A119728, A119740.
%K nonn
%O 1,1
%A _Zak Seidov_, Jul 29 2006