A164119 Numbers k that are the smallest number that produces the ordered pair (d(k), d(k+1)), where d(k) is the number of divisors of k.
1, 2, 3, 4, 5, 6, 8, 9, 11, 12, 14, 15, 16, 20, 23, 24, 27, 30, 35, 36, 39, 44, 47, 48, 49, 54, 59, 60, 63, 64, 80, 81, 84, 95, 99, 104, 111, 112, 119, 120, 143, 144, 152, 153, 167, 169, 175, 176, 179, 180, 191, 192, 195, 210, 216, 224, 225, 239, 240, 252, 260, 272, 275
Offset: 1
Keywords
Examples
7 is not here because (d(7), d(8)) = (2,4), which is the same ordered pair produced by k=5.
Links
- T. D. Noe, Terms less than 10^8
Programs
-
Mathematica
s={}; Reap[Do[pr=DivisorSigma[0,{n,n+1}]; If[ !MemberQ[s,pr], AppendTo[s,pr]; Sow[n]], {n,1000}]][[2,1]]
Comments