|
| |
|
|
A098215
|
|
Numbers n such that reverse(sigma(n))=n-phi(n)=cototient(n).
|
|
0
| |
|
|
136, 261, 295, 493, 1218, 1576, 15976, 159976, 715381, 717181, 746341, 987109, 1585576, 5989003, 13390567, 14400136, 19326607, 78753211, 144144136, 145454536, 158401576, 275675661, 713791681, 737098261, 1440000136, 1441584136, 1454414536, 1455998536
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| n=5989003: sigma(n)=5994000 and n-phi(n)=4995
|
|
|
MATHEMATICA
| Do[ If[ FromDigits[ Reverse[ IntegerDigits[ DivisorSigma[1, n]]]] == n - EulerPhi[n], Print[n]], {n, 10^8}] (from Robert G. Wilson v Oct 23 2004)
|
|
|
CROSSREFS
| Cf. A069225, A000203, A000010.
Sequence in context: A157714 A165337 A101335 * A183635 A116223 A124241
Adjacent sequences: A098212 A098213 A098214 * A098216 A098217 A098218
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Oct 22 2004
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 27 2004
a(19)-a(28) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Jan 14 2011
|
| |
|
|
