OFFSET
1,1
COMMENTS
Numbers n such that A051950(n+1) = 2.
Sequence of starts of first run of n (n>=2) consecutive integers m_1, m_2, ..., m_n such that tau(m_k) - tau(m_k-1) = 2, for all k=n...2: 5, 61, 421, ... (a(5) > 100000); example for n=4: tau(421) = 2, tau(422) = 4, tau(423) = 6, tau(424) = 8.
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..2000
EXAMPLE
Number 7 is in sequence because tau(8) - tau(7) = 4 - 2 = 2.
MATHEMATICA
Select[ Range[ 50000], DivisorSigma[0, # ] + 2 == DivisorSigma[0, # + 1] &]
Flatten[Position[Partition[DivisorSigma[0, Range[700]], 2, 1], _? (#[[2]]- #[[1]] == 2&), {1}, Heads->False]] (* Harvey P. Dale, Aug 03 2014 *)
PROG
(PARI) isok(n) = (numdiv(n+1) - numdiv(n)) == 2; \\ Michel Marcus, Mar 26 2017
(Python)
from sympy.ntheory import divisor_count
[n for n in range(1000) if divisor_count(n + 1) - divisor_count(n) == 2] # Indranil Ghosh, Mar 26 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Oct 09 2013
STATUS
approved