|
| |
|
|
A071847
|
|
Numbers n such that sigma(n) - sigma(reverse(n)) = phi(n).
|
|
0
| |
|
|
1302, 6364, 13902, 30944, 35404, 57356, 88781, 132432, 141372, 183792, 284242, 555093, 806403, 1967262, 5010576, 5568948, 6298446, 7306241, 7496203, 7944911, 8078106
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| sigma(1302) - sigma(reverse(1302)) = sigma(1302) - sigma(2031) = 3072 - 2712 = 360 = phi(1302).
|
|
|
MATHEMATICA
| r = {}; Do[ If[ DivisorSigma[1, n] - DivisorSigma[1, FromDigits[ Reverse[ IntegerDigits[n]]]] == EulerPhi[n], r = Append[r, n]], {n, 1, 10^7}]; r
|
|
|
CROSSREFS
| Sequence in context: A204941 A022057 A107521 * A014356 A126841 A106815
Adjacent sequences: A071844 A071845 A071846 * A071848 A071849 A071850
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jun 09 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 11 2002
|
| |
|
|
