The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A198588 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A198588

Odd numbers producing 5 odd numbers in the Collatz iteration.
(history; published version)

#10 by Russ Cox at Fri Mar 30 17:23:02 EDT 2012

AUTHOR

_T. D. Noe (noe(AT)sspectra.com), _, Oct 31 2011

Discussion

Fri Mar 30

17:23

OEIS Server: https://oeis.org/edit/global/120

#9 by OEIS Server at Fri Nov 11 19:18:03 EST 2011

LINKS

Vincenzo Librandi and T. D. Noe, <a href="/A198588/b198588_1.txt">Table of n, a(n) for n = 1..900</a> (terms 1 to 128 from Vincenzo Librandi)

#8 by T. D. Noe at Fri Nov 11 19:18:03 EST 2011

STATUS

editing

approved

Discussion

Fri Nov 11

19:18

OEIS Server: Installed new b-file as b198588.txt.  Old b-file is now b198588_1.txt.

#7 by T. D. Noe at Fri Nov 11 19:17:50 EST 2011

LINKS

Vincenzo Librandi, and T. D. Noe, <a href="/A198588/b198588_1.txt">Table of n, a(n) for n = 1..900</a> (terms 1 to 128</a> from Vincenzo Librandi)

STATUS

approved

editing

#6 by Bruno Berselli at Fri Nov 11 06:56:45 EST 2011

STATUS

proposed

approved

#5 by Vincenzo Librandi at Fri Nov 11 01:32:12 EST 2011

STATUS

editing

proposed

#4 by Vincenzo Librandi at Fri Nov 11 01:31:55 EST 2011

LINKS

Vincenzo Librandi, <a href="/A198588/b198588.txt">Table of n, a(n) for n = 1..128</a>

STATUS

approved

editing

#3 by T. D. Noe at Mon Oct 31 13:23:59 EDT 2011

STATUS

editing

approved

#2 by T. D. Noe at Mon Oct 31 13:23:54 EDT 2011

NAME

allocated for T. D. Noe

Odd numbers producing 5 odd numbers in the Collatz iteration.

DATA

11, 23, 45, 93, 181, 201, 369, 373, 401, 403, 725, 739, 753, 803, 805, 1477, 1493, 1507, 1605, 1611, 1613, 2901, 2957, 3013, 3033, 3213, 3221, 3223, 5909, 5973, 6029, 6065, 6067, 6421, 6445, 6453, 6465, 11605, 11829, 12053, 12131, 12133, 12853, 12885, 12893

OFFSET

1,1

MATHEMATICA

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

CROSSREFS

Cf. A198584.

KEYWORD

allocated

nonn

AUTHOR

T. D. Noe (noe(AT)sspectra.com), Oct 31 2011

STATUS

approved

editing

#1 by T. D. Noe at Wed Oct 26 23:20:38 EDT 2011

NAME

allocated for T. D. Noe

KEYWORD

allocated

STATUS

approved