|
| |
|
|
A072228
|
|
Numbers n such that n = the sum of the reverses of the proper divisors of n.
|
|
1
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| I call these numbers "anti-perfect" (compare with the picture-perfect numbers A069942). These are all the anti-perfect numbers up to 3 * 10^6.
Next term is greater than 300000000. - Farideh Firoozbakht (mymontain(AT)yahoo.com), Dec 23 2004
|
|
|
EXAMPLE
| The proper divisors of 285 are 1, 3, 5, 15, 19, 57, 95, with sum of reverses = 1 + 3 + 5 + 51 + 91 + 75 + 59 =285. Therefore 285 is anti-perfect.
|
|
|
MATHEMATICA
| f[n_] := FromDigits[Reverse[IntegerDigits[n]]]; Do[ If[n == Apply[Plus, Map[f, Drop[Divisors[n], -1]]], Print[n]], {n, 2, 10^7}]
|
|
|
CROSSREFS
| Cf. A069942, A101701.
Sequence in context: A064382 A080358 A156936 * A056238 A184424 A041853
Adjacent sequences: A072225 A072226 A072227 * A072229 A072230 A072231
|
|
|
KEYWORD
| base,more,nonn,nice
|
|
|
AUTHOR
| Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jul 05 2002
|
|
|
EXTENSIONS
| One more term from Farideh Firoozbakht (mymontain(AT)yahoo.com), Dec 23 2004
|
| |
|
|
