|
%I #12 Oct 06 2017 01:05:17
%S 35,169,289,529,961,1369,2809,3135,4489,7921,9409,10609,10815,11881,
%T 12769,16129,18495,18769,22201,22801,26569,27889,32041,33855,38809,
%U 44521,49729,51529,52441,53823,58081,61503,69169,72361,76729,78961,80089,96721
%N Numbers n such that tau(n+1) - tau(n) = 5, where tau(n) = the number of divisors of n (A000005).
%C Numbers n such that A051950(n+1) = 5.
%C Numbers n such that A049820(n) - A049820(n+1) = 4.
%e 35 is in sequence because tau(36) - tau(35) = 9 - 4 = 5.
%t Select[ Range[ 50000], DivisorSigma[0, # ] + 5 == DivisorSigma[0, # + 1] &]
%Y Cf. A055927 (numbers n such that tau(n+1) - tau(n) = 1), A230115 (numbers n such that tau(n+1) - tau(n) = 2), A230653 (numbers n such that tau(n+1) - tau(n) = 3), A230654 (numbers n such that tau(n+1) - tau(n) = 4), A000005.
%K nonn
%O 1,1
%A _Jaroslav Krizek_, Nov 03 2013
|
