[go: up one dir, main page]

login
A084049
Numbers k such that k and k+1 have the same sum of digits of divisors; A034690(k) = A034690(k+1).
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
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
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jun 19 2003
STATUS
approved