login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A217731 Numbers n such that in Collatz (3x+1) trajectory of n, the number of terms < n equals number of terms > n. 1
1, 19, 39, 75, 201, 428, 462, 550, 583, 593, 638, 702, 755, 1486, 2395, 3023, 3583, 3867, 5342, 6998, 7419, 8283, 10367, 10447, 10524, 10567, 10879, 11219, 12379, 13647, 13650, 14252, 14561, 14783, 15230, 15871, 16871, 16875, 17121, 17385, 18046, 19279, 19691 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

T. D. Noe, Table of n, a(n) for n = 1..10000

EXAMPLE

19 is in the list because Collatz trajectory of 19 is {19, 58, 29, 88, 44, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5, 16, 8, 4, 2, 1} and number of terms < 19 = 10 = number of terms > 19.

MATHEMATICA

Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3*# + 1] &, n, # > 1 &]; t = {}; Do[If[Length[Select[Collatz[n], # < n &]] == Length[Select[Collatz[n], # > n &]], AppendTo[t, n]], {n, 50000}]; t

CROSSREFS

Cf. A076228, A222597.

Sequence in context: A041708 A079044 A258016 * A195048 A299964 A041714

Adjacent sequences:  A217728 A217729 A217730 * A217732 A217733 A217734

KEYWORD

nonn

AUTHOR

Jayanta Basu, Mar 26 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 1 01:28 EDT 2022. Contains 357134 sequences. (Running on oeis4.)