A344314 Number k such that k and k+1 have the same number of nonunitary divisors (A048105).
1, 2, 5, 6, 10, 13, 14, 21, 22, 27, 29, 30, 33, 34, 37, 38, 41, 42, 44, 46, 57, 58, 61, 65, 66, 69, 70, 73, 75, 77, 78, 82, 85, 86, 93, 94, 98, 101, 102, 105, 106, 109, 110, 113, 114, 116, 118, 122, 124, 129, 130, 133, 135, 137, 138, 141, 142, 145, 147, 154, 157
Offset: 1
Keywords
Examples
1 is a term since A048105(1) = A048105(2) = 0. 27 is a term since A048105(27) = A048105(28) = 2.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
nd[n_] := DivisorSigma[0, n] - 2^PrimeNu[n]; Select[Range[200], nd[#] == nd[# + 1] &]
Comments