|
|
A072122
|
|
Numbers with 12 odd integers in their Collatz (or 3x+1) trajectory.
|
|
3
|
|
|
39, 78, 79, 153, 156, 157, 158, 305, 306, 307, 312, 314, 315, 316, 317, 610, 611, 612, 613, 614, 624, 628, 629, 630, 631, 632, 634, 647, 683, 687, 1220, 1221, 1222, 1224, 1226, 1228, 1229, 1241, 1248, 1256, 1257, 1258, 1260, 1261, 1262, 1264, 1265, 1268
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The Collatz (or 3x+1) function is f(x) = x/2 if x is even, 3x+1 if x is odd. The Collatz trajectory of n is obtained by applying f repeatedly to n until 1 is reached.
|
|
REFERENCES
|
J. Shallit and D. Wilson, The "3x+1" Problem and Finite Automata, Bulletin of the EATCS #46 (1992) pp. 182-185.
|
|
LINKS
|
|
|
EXAMPLE
|
trajectory: 39, 118, 59, 178, 89, 268, 134, 67, 202, 101, 304, 152, 76, 38, 19, 58, 29, 88, 44, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5, 16, 8, 4, 2, 1 has 12 odd numbers.
|
|
MATHEMATICA
|
odd12Q[n_]:=Count[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #>1&], _?OddQ]==12; Select[Range[1300], odd12Q] (* Harvey P. Dale, Oct 17 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|