A350675 Numbers k such that tau(k) + tau(k+1) + tau(k+2) = 10, where tau is the number of divisors function A000005.
6, 11, 13, 17, 21, 37, 57, 157, 177, 381, 501, 541, 717, 877, 1201, 1317, 1381, 1437, 1621, 1821, 2017, 2557, 2577, 2857, 2901, 3061, 3117, 3777, 4281, 4357, 4441, 4677, 4701, 5077, 5097, 5581, 5637, 5701, 5937, 6337, 6637, 6661, 6717, 6997, 7417, 8221, 8781
Offset: 1
Keywords
Examples
Each of the patterns (tau(k), ..., tau(k+2)) that appears repeatedly for large k corresponds to one of the two possible orders in which the multipliers m=1..3 can appear among 3 consecutive integers of the form m*prime. E.g., k=37 begins a run of 3 consecutive integers having the form (p, 2*q, 3*r), where p, q, and r are distinct primes > 3; k=57 begins a similar run, but there the 3 consecutive integers have the form (3*p, 2*q, r). For each of the patterns of tau values that does not occur repeatedly for large k, one or more of the three consecutive integers in k..k+2 has no prime factor > 3; in the table below, each such integer appears in parentheses in the columns on the right. . factorization as # divisors of m*(prime > 3) n a(n)=k k k+1 k+2 k k+1 k+2 - ------ --- --- --- ---- ---- ---- 1 6 4 2 4 (6) q (8) 2 11 2 6 2 p (12) r 3 13 2 4 4 p 2q 3r 4 17 2 6 2 p (18) r 5 21 4 4 2 3p 2q r 6 37 2 4 4 p 2q 3r 7 57 4 4 2 3p 2q r
Links
- Jon E. Schoenfield, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Position[Plus @@@ Partition[Array[DivisorSigma[0, #] & , 10^4], 3, 1], 10] // Flatten (* Amiram Eldar, Jan 11 2022 *)
-
PARI
isok(k) = numdiv(k) + numdiv(k+1) + numdiv(k+2) == 10; \\ Michel Marcus, Jan 16 2022
Comments