|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn,changed
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|