|
Search: id:A073054
|
|
|
| A073054 |
|
Number of applications of DENEAT operator needed to reduce n to 123. |
|
+0
3
|
|
| 5, 2, 5, 2, 5, 2, 5, 2, 5, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
0 does not occur. 1 first occurs for n=101, 2 first occurs for n=2, 3 first occurs for n=20, 4 first occurs for n=11, 5 first occurs for n=1. What is the least n such that a(n) > 5? - Jason Earls, Jun 03 2005
Since each string has only finitely many preimages under this map, the sequence is unbounded. Compare A100961. - N. J. A. Sloane (njas(AT)research.att.com), Jun 18 2005
|
|
REFERENCES
|
M. Ecker, Caution: Black Holes at Work, New Scientist (Dec. 1992)
M. J. Halm, Blackholing, Mpossibilities 69, (1999), p. 2.
|
|
MATHEMATICA
|
f[n_] := Block[{id = IntegerDigits[n]}, FromDigits[ Join[ IntegerDigits[ Length[ Select[id, EvenQ[ # ] &]]], IntegerDigits[ Length[ Select[id, OddQ[ # ] &]]], IntegerDigits[ Length[ id]] ]]]; Table[ Length[ NestWhileList[f, n, UnsameQ, All]] - 2, {n, 0, 104}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2005)
|
|
CROSSREFS
|
Cf. A073053, A100961.
Sequence in context: A008566 A111129 A059688 this_sequence A072996 A153107 A020855
Adjacent sequences: A073051 A073052 A073053 this_sequence A073055 A073056 A073057
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Michael Joseph Halm (hierogamous(AT)lycos.com), Aug 16 2002
|
|
EXTENSIONS
|
Edited and corrected by Jason Earls (zevi_35711(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 03 2005
|
|
|
Search completed in 0.005 seconds
|
