|
Search: id:A098215
|
|
|
| A098215 |
|
Numbers n such that reverse(sigma(n))=n-phi(n)=cototient(n). |
|
+0
1
|
|
| 136, 261, 295, 493, 1218, 1576, 15976, 159976, 715381, 717181, 746341, 987109, 1585576, 5989003, 13390567, 14400136, 19326607, 78753211
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=5989003: sigma(n)=5994000 and n-phi(n)=4995
|
|
MAPLE
|
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: A072884 A072889 A101335 this_sequence A116223 A124241 A076331
Adjacent sequences: A098212 A098213 A098214 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
