|
| |
|
|
A069250
|
|
Sum of the reversals of the proper divisors of n.
|
|
2
| |
|
|
0, 1, 1, 3, 1, 6, 1, 7, 4, 8, 1, 16, 1, 10, 9, 15, 1, 21, 1, 13, 11, 14, 1, 45, 6, 34, 13, 55, 1, 69, 1, 76, 15, 74, 13, 127, 1, 94, 35, 23
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
LINKS
| Pe, J. The Picture-Perfect Numbers
|
|
|
EXAMPLE
| The proper divisors of 20 are 1,2,4,5,10, which reversed are 1,2,4,5,1, summing to 13. Therefore a(10) = 13.
|
|
|
MATHEMATICA
| f[n_] := FromDigits[Reverse[IntegerDigits[n]]]; g[n_] := Apply[Plus, Map[f, Drop[Divisors[n], -1]]]; Table[g[i], {i, 1, 40}]
|
|
|
CROSSREFS
| Cf. A069192.
Sequence in context: A076889 A134689 A117552 * A001065 A173455 A168111
Adjacent sequences: A069247 A069248 A069249 * A069251 A069252 A069253
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Apr 19 2002
|
| |
|
|
