|
Search: id:A113285
|
|
|
| A113285 |
|
Let S(n)=sigma(|n|)-2*n; sequence gives numbers n such that S(S(S(S(n))))=n. May be called {2,1}-Sociable number of orders 1 or 2 or 4. |
|
+0
3
|
|
| 51, 72, 120, 132, 672, 2602, 4756, 10054, 14884, 45840, 51168, 116252, 523776, 906202, 3003698, 5271836, 65071776, 77260656, 82842816, 89761152, 138357404, 139626548
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Orders of cycles are 4,4,1,4,1,4,4,4,4,2,2,2,1,2,4,4,4,4,4,4,4,4,...
|
|
LINKS
|
Eric Weisstein's World of Mathematics, WathWorld
|
|
EXAMPLE
|
{51,-30,132,72} is a {2,1}-Aliquot cycle.
|
|
MATHEMATICA
|
fQ[n_] := Nest[ DivisorSigma[1, # ] - 2# &, n, 4] == n; t = {}; Do[ If[ fQ[n], AppendTo[t, n]], {n, 3*10^7}]; t (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A113791, A114528, A114529.
Sequence in context: A034819 A118147 A015863 this_sequence A050698 A039474 A020180
Adjacent sequences: A113282 A113283 A113284 this_sequence A113286 A113287 A113288
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Yasutoshi Kohmoto zbi74583(AT)boat.zero.ad.jp, Jan 27 2006
|
|
EXTENSIONS
|
a(12)-a(22) from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 30 2006
|
|
|
Search completed in 0.002 seconds
|
