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,1

Links

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

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 *)

Crossrefs

Sequence in context: A043943 A367360 A308834 * A251221 A302467 A303249

Adjacent sequences: A084046 A084047 A084048 * A084050 A084051 A084052

Keyword

base,easy,nonn,changed

Author

Jason Earls, Jun 19 2003

Status

approved