|
|
A070835
|
|
Numbers n such that phi(reverse(n)) = sigma(n).
|
|
3
|
|
|
1, 168, 1141, 1451, 2139, 2737, 3938, 7597, 11831, 19668, 21415, 23649, 31894, 32383, 40649, 52687, 59677, 121023, 133661, 136831, 146055, 148503, 172095, 190035, 245998, 276058, 302005, 302503, 307705, 396635, 410389, 504557, 516439, 539327, 571577
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
phi(reverse(168)) = phi(861) = 480 = sigma(168), so 168 is a term of the sequence.
|
|
MATHEMATICA
|
Select[Range[10^5], EulerPhi[FromDigits[Reverse[IntegerDigits[ # ]]]] == DivisorSigma[1, # ] &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|