A084049 Numbers k such that k and k+1 have the same sum of digits of divisors; A034690(k) = A034690(k+1).

14, 49, 104, 118, 122, 213, 245, 296, 356, 424, 425, 459, 526, 537, 715, 878, 922, 969, 1003, 1065, 1085, 1138, 1202, 1275, 1334, 1335, 1431, 1445, 1581, 1605, 1614, 1625, 1642, 1886, 1941, 2055, 2247, 2264, 2295, 2421, 2566, 2585, 2769, 2870, 2914, 3054

Offset: 1

Author

Jason Earls, Jun 19 2003

Keywords

• base
• easy
• nonn

Links

• Paolo P. Lava, Table of n, a(n) for n = 1..1000

Programs

Mathematica

Flatten[Position[Partition[Table[Total[Flatten[IntegerDigits/@ Divisors[ n]]], {n,4000}],2,1],?(#[[1]]==#[[2]]&),{1},Heads->False]] (* _Harvey P. Dale, May 20 2013 *)