|
Search: id:A083252
|
|
|
| A083252 |
|
Numbers n for which Abs[A045763[n]-A073757[n]]=5, i.e. signed difference of size of related and unrelated sets to n equals either 5 or -5. |
|
+0
2
|
| |
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=960075: d=36 divisors,r=480000 coprimes, u=480040
unrelated or n-u=r+d-1=480035 related numbers to m;
thus abs[480040,480035]=5.
|
|
MATHEMATICA
|
Do[r=EulerPhi[n]; d=DivisorSigma[0, n]; u=n-r-d+1; df=2*u-n; If[Equal[Abs[df], 5], Print[n(*, {d, r, u}*)]], {n, 1, 3000}]
|
|
CROSSREFS
|
Cf. A045763, A073757, A000010, A000005, A083243-A083249, A083250, A083251.
Adjacent sequences: A083249 A083250 A083251 this_sequence A083253 A083254 A083255
Sequence in context: A052138 A007619 A057016 this_sequence A034225 A114481 A015002
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 07 2003
|
|
|
Search completed in 0.002 seconds
|
