|
| |
|
|
A083367
|
|
n is equal to the sum of its divisors after the digits of each divisor have been sorted in ascending order.
|
|
0
| |
|
|
1, 60, 1959, 149587, 277947, 1449933, 2222863, 2396214, 24918486, 25354845, 48878262
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| No more terms through 10^8. - Ryan Propper (rpropper(AT)stanford.edu), Sep 09 2005
|
|
|
EXAMPLE
| a(3)=1959 because the divisors of 1959 are [1, 3, 653, 1959] and 1+3+356+1599 = 1959.
|
|
|
MATHEMATICA
| Do[l = IntegerDigits /@ Divisors[n]; l = Map[Sort[ # ]&, l]; k = Plus @@ Map[FromDigits[ # ]&, l]; If[k == n, Print[n]], {n, 1, 10^8}] (Propper)
|
|
|
CROSSREFS
| Sequence in context: A058836 A166792 A013925 * A173123 A004353 A004364
Adjacent sequences: A083364 A083365 A083366 * A083368 A083369 A083370
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Jun 11 2003
|
|
|
EXTENSIONS
| More terms from Ryan Propper (rpropper(AT)stanford.edu), Sep 09 2005
|
| |
|
|
