|
Search: id:A083250
|
|
|
| A083250 |
|
Numbers n for which Abs[A045763[n]-A073757[n]]=3, i.e. signed difference of size of related and unrelated sets to n equals either 3 or -3. |
|
+0
5
|
| |
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=140049: d=40 divisors,r=70026 coprimes and u=70023
unrelated numbers to n; abs[r-u]=3.
|
|
MATHEMATICA
|
Do[r=EulerPhi[n]; d=DivisorSigma[0, n]; u=n-r-d+1; df=2*u-n; If[Equal[Abs[df], 3], Print[n(*, {d, r, u}*)]], {n, 1, 100}]
|
|
CROSSREFS
|
Cf. A045763, A073757, A000010, A000005, A083243-A083249.
Adjacent sequences: A083247 A083248 A083249 this_sequence A083251 A083252 A083253
Sequence in context: A013826 A133014 A100407 this_sequence A096086 A062658 A000723
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 07 2003
|
|
|
Search completed in 0.002 seconds
|
