|
Search: id:A083253
|
|
|
| A083253 |
|
Smallest number a[n] for which Abs[A045763[a(n)]-A073757[a(n)]]=n, i.e. signed difference of size of related and unrelated sets to m equals either n or -n. |
|
+0
1
|
|
| 30, 1, 2, 3, 4, 5, 8, 7, 16, 21, 32, 11, 64, 13, 84, 27, 78, 17, 200, 19, 90, 57, 140, 23, 102, 69, 120, 435, 114, 29, 132, 31, 126, 93, 392, 81, 138, 37, 156, 49, 230, 41, 168, 43, 322, 129, 260, 47, 150, 77, 180, 795, 186, 53, 204, 95, 198, 885, 280, 59, 434, 61, 228, 183
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
FORMULA
|
a[n]=Min{x; Abs[A045763[x]-A073757[x]]=n, };
|
|
EXAMPLE
|
A045763[x]-A073757[x]]=0 is first satisfied at x=30=a(0);
Observe, that for n=p, prime the solution is also p.
|
|
MATHEMATICA
|
f[x_] := Abs[2*(x-EulerPhi[x]-DivisorSigma[0, x]+1)-x] t=Table[0, {100}]; Do[s=f[n]; If[s<101&&t[[s]]==0, t[[s]]=n], {n, 1, 10000}]; t
|
|
CROSSREFS
|
Cf. A045763, A073757, A000010, A000005, A083243-A083249, A083250, A083251, A083252.
Sequence in context: A040913 A040914 A040912 this_sequence A040911 A040910 A040917
Adjacent sequences: A083250 A083251 A083252 this_sequence A083254 A083255 A083256
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 07 2003
|
|
|
Search completed in 0.002 seconds
|
