|
Search: id:A083367
|
|
|
| A083367 |
|
n is equal to the sum of its divisors after the digits of each divisor have been sorted in ascending order. |
|
+0
1
|
|
| 1, 60, 1959, 149587, 277947, 1449933, 2222863, 2396214, 24918486, 25354845, 48878262
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A004353 A004364 A054623
Adjacent sequences: A083364 A083365 A083366 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
