|
Search: id:A071846
|
|
|
| A071846 |
|
phi(n) + phi(reverse(n)) = sigma(n). |
|
+0
1
|
|
| 3, 26, 221, 635, 1702, 4945, 5038, 26596, 27927, 62783, 195723, 210221, 364287, 489955, 495995, 525833, 901303, 909503, 2747761, 2747761, 2941119, 3926146, 4463651, 4484831, 4630475, 4769947, 5531305, 6099313, 6482845, 6917881
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
phi(221) + phi(reverse(221)) = phi(221) + phi(122) = 192 + 60 = 252 = sigma(221).
|
|
MATHEMATICA
|
r = {}; Do[ If[ EulerPhi[n] + EulerPhi[ FromDigits[ Reverse[ IntegerDigits[n]]]] == DivisorSigma[1, n], r = Append[r, n]], {n, 1, 10^7}]; r
|
|
CROSSREFS
|
Sequence in context: A037790 A037671 A037797 this_sequence A067858 A052141 A062793
Adjacent sequences: A071843 A071844 A071845 this_sequence A071847 A071848 A071849
|
|
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
|
|
|
Search completed in 0.002 seconds
|
