|
Search: id:A082120
|
|
|
| A082120 |
|
Smallest difference > 1 between d and n/d for any divisor d of n. |
|
+0
9
|
|
| 2, 3, 4, 5, 6, 2, 8, 3, 10, 4, 12, 5, 2, 6, 16, 3, 18, 8, 4, 9, 22, 2, 24, 11, 6, 3, 28, 7, 30, 4, 8, 15, 2, 5, 36, 17, 10, 3, 40, 11, 42, 7, 4, 21, 46, 2, 48, 5, 14, 9, 52, 3, 6, 10, 16, 27, 58, 4, 60, 29, 2, 12, 8, 5, 66, 13, 20, 3, 70, 6, 72, 35, 10, 15, 4, 7, 78, 2, 24, 39, 82, 5
(list; graph; listen)
|
|
|
OFFSET
|
3,1
|
|
|
COMMENT
|
a(p)=p-1 for prime p.
|
|
PROGRAM
|
(PARI) for(n=3, 100, v=divisors(n):r=sqrt(n):t=0:for(k=1, length(v), if(v[k]>=r, t=k:break)): if(v[t]^2==n, u=t, u=t-1): if(v[t]-v[u]<2, u=u-1:t=t+1):print1(v[t]-v[u]", "))
|
|
CROSSREFS
|
Cf. A082119, A056737, A003681, A082121.
Sequence in context: A105257 A125937 A043266 this_sequence A070675 A096894 A097751
Adjacent sequences: A082117 A082118 A082119 this_sequence A082121 A082122 A082123
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 04 2003
|
|
|
Search completed in 0.002 seconds
|
